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بسم الله والصلاة والسلام على اشرف المرسلين سيدنا محمد صلى الله علية وسلم وعلى اله وصحبة أجماعيين 


أما بعد 


أردت أنى أقوم بعملية ترجمة بعد الكتب الالكترونية التي تخص بمجال الحاسبات الآلية مثل ( كتب لغات البرمجة - وأنظمة التشغيل - 
والشبكات ) وكل ما يخص بالحاسب الالى 


لقد تمت عملية ترجمة هذا الكتاب وهو يتحدث في ( مقدمة فيجوال بيسك دوت نت ۲٠٠١‏ بواسطة اندرو فوس ) 


الذي قام بتأليفه الكاتب اندرو فوس والذي أعطى له اسم 
Introduction to Programming with Visual Basic.Net 2005 by Andrew Vos "‏ " 


وهذا رابط الكتاب عن طريق الانترنت للإطلاع على النسخة الأصلية باللغة الإنجليزية 
http://books.wickedorange.com/vb2005intro/book/start/start.html‏ 


ملحوظة لقارئ الكتاب 
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ه أنا ليس محترف في بلاغة اللغة الإنجليزية 
ه عند وجود خطأ ما لا تتردد في كتابة رسالة صغيرة ترسلها على هذا الميل مد هء.انةصع@ ۲.۸۵۲2000إءء۸ء لتغيير الخطاً وإعادة ٥‏ 
نشر الكتاب مرة أخرى بعد التصحيح . 
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نوجوا أن يحوز الكتاب قبول القارئ العربي وان يحقق النفع المرجو منة والله ولى التوفيق 


المهندس : عمد على يوسف 
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مقدمة فيجوال بيسك دوت نت ۲٠٠٠١‏ 


أننا تعيش في عغال متغعير باستفرازر من التكتولوجيا والاختراعء الشيءة الوجيد الدي 
تغبر هو بعض هذه الأيام. 

الابتكارات الجحديثة التي أوصلتنا الهواتف الخلوية » وعالية السرعة بشبكه الانترنت 
> والتصوير الرقمي وغيرها الكثير من الأفكار الثتورية. المشترك رابط بين هذه 


الأفكار هو انه > في مكان ما على طول الخط » مبرمج كتب البرمجيات لجعلها أكثر من 
جرد فكرة » التي قطعتها هذه الأفكار موجودة » ويدونها سنكون في عالم محتلف جدا. 


في هذا الكتاب أنني اعتزم البدء لكم من على طريقك إلى معرفة واسعة ومتشعبة فن 
البريجة. 

فن الى 

اندرو فوس ولدت في كيب تاون » جنوب أفريقيا. 

الذين ينبغي قراءة هذا الكتاب؟ 

أي شخص مهتم في تعلم أساسيات كيفية تطوير ارجات .وننتنعيني ن يقرأ هذا 
الكتاب. وؤقن الغتزم للتاس الدذين يعرقون شيا اليتة عقن اليرجة » ولكن مخرفة 
كيفية استخدام الحخاسوب. 

ما هي البرمجيات هل أنت بحاجة؟ 

التي استخدمت لصنع البرامج ب تحميع مدونة الامثله التي وردت في هذا الكتاب » على 
الرغم من E‏ ليس مطلوبا. 

الاتفاقيات المستخدمة في هذا الكتاب 

قائمة الملاحة 

ه د رمز يستخدم لتمثيل قائمة الانفصال » وعلى سبيل المثال عندما كنت أنظر 
مساعدة د عنك ينبغي انقر على قائمة مساعدة وثم انقر على قائمة حول هذا 
شتلك 


شفره المصدر 


شفقره المصدر يرد في محتلف وحجم الخط لسهولة القراءة. 


Public Sub New(0 
Me.DoStuffO 


End Sub 
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Microsoft Developers Network 


http://www.msdn.net 


Microsoft Developers Network 2 Library 
http://msdn2.microsoft.com 


CodeProject 
http://www.codeproj ect. com 


ما هى البرجة؟ 


البرججة هو في جوهره هكهيع إنشاء التعليمات أن أقول حاسوب أو آلة ما نفعله. 
ما هى لغة بيبرجححة؟ 


لغة بريجة ما هو استخدام المبريجين لإنشاء البرمجيات. فهو يجعل الجياة أسهل بكثير 
بالنسبة لنا المبرمجين عن طريق السماح لنا لتطوير البرمجيات في حقوق قراءتها » من 
السهل فهم هذه اللغة. 


برمجيات هو "“ئهd@كص€"‏ في لغة من اختيارك وعندئذ يحصل على جمعها في ملف ثنائي بحيث 
تكون اداة يمكن فهمه. وهذا ما يسمى "ە٥ەdە€ "Machine‏ . والذي يشار إليه اأيضا 
باسم ألقوميه .Machine €od٥e‏ جع هذا هdكە€‏ هو تحويل حقوق مقروء مدونة مكتوب في 
لغة برمجة مnمنذMach‏ لغة الآلة. 


وفي حالة اخne. microsoft‏ .» شفره المصدر الخاص بك هو تحميع للغة وسيطة (1£) »> 
الذي يختلف عن هod٣‏ مMachin. Ms1i1‏ هو المعروف أيضا باسم مايكروسوفت لغة وسيطة 
(msi1l)‏ أ و اللغة المشتركة وسيطة (11كئM C11(.‏ هو واضح في بعض الأحيان "٥ه11كئM1s"‏ . 


لغة وسيطة هي لغة جديدة والذي صمم ليكون بكفاءة تحويلها إلى آلة ألمدونه على 
أنواع ممختلفة من الاجهزه. جميع لغات خعمط.osof۴±tعإcزصm‏ توليد لغة وسيطة خلال تحميع 
الملفات. 


لأن هذه المدونة لغة وسيطة هي مختلفة عن القومية لغة الآلة وهي تتطلب شيء يسمى 
اللغة المشتركة وقت التشغيل (٣1ء)‏ ليتم تثبيته على جهازك لتشغيلها. اللغة 
المشتركة وقت التشغيل هو المكون الأساسي لل غخعم.غf۴±هئدععحزص‏ الإطار أن ينفذ ايل 
مكدع » ودون أن حسابك تحميعها. الصافية الملفات سيكون عدم الفائدة. ٣ا٤‏ فإن 
لديه القدرة على أن تعمل بشكل عحتلف على عحختلف الاجهزه » على سبيل المثال 
باستخدام بيثات متعدد المعالج من اجل الحصول على المزيد من القوة المتعددة 
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للوحدة المعالجة المركزية. 
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.NET Framework ga |‏ ؟ 


فنإن - ameworkا۴ .NE‏ هو تطوير وتنفيذ بيئة تتيح لغات البريججة المختلفة إلى 
العمل معا من اجل تهيئة ويندوز التطبيقات القائمة. 


بيساطة أكثر > وهي وسيلة لخلق برامج »> وسيلة لتنفيذ البرامج. 


إلى استخدام برامج أن تتم. الصافية » والجاجة إلى المستخدمين لديها . غخNe‏ 
۴ramework‏ وهو متاح من تحديث ويیندوز. 


NET Framework. jùjnض‎ 


The Common Language Runtime (CLR) 


فان ٣ا1اع‏ هي لغة محايدة التنمية & إعدام البيئة. وهي توفر أيضا خدمات 
تلفساعدة ق إذازة تطبيق عقوبة الاغدامع: 


The Framework Class Libraries (FCL) 


في إطار الطبقة مكتبات تحتوي مجموعة متنوعة من المفيد الوظيفة اَن نأخذها بعين 
الاعتبار في برامجنا » وتقديم المساعدة اللازمة لتطوير البرامج التي هي أكثر 
استقرارا »> وتسريع عملية التنمية. 
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دعم ليروتوكولات الشبكة الموحدة والمواصفات 
: فإن - صافي الإطار يشملل دعم بروتوكولات الانترنت القياسية ومواصفات مثل مشاريع 
۾ التعاون التقن /⁄ الملكية الفكرية » والصابون » وأكس أم أل » & بروتوكول : 
: انتقال النص المتشعب. : 
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تطوير الرمجیات NET ۴ramework .J‏ الذي يمكن عمله في مجموعة متنوعة من محتلف 
لغات البرمجة > بحيث لك اختيار اللغة التي تناسب أفضل لكم. 


فرق للمطورين العمل علي المشروع نفسه بمكن أيضا استخدام محتلف لغات البريجة في 
نفس الوقت الذي نتائج اكثر إنتاجيه في بيئة العمل. 


الدعم لمختلف المنابر 


فإنù‏ - ameworkع۴ NET‏ هو متاح لكثير من منصات ويندوز المختلفة » على سبيل 
المثال ويندوز اكس بي (الحاسوب الشخصي المكتبي أو الحواسب الحجريخة ) Cell Phones‏ 
عet)‏ والهواتف الخلوية وغيرها) 


ا ا و س 
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۾ ما هي المشاريع التي بمكن ان أاقوم بإنشائها؟ ٍ 
ي ي 
العميل الذكي تطبيقات ويندوز 
ق نوافذ التطبيقات الأساسية التي لها واجهة المستخدم الرسوميه (واجهة المستخدم 
الرسوميه) هي عادة أول ما ينبغي أن اليرمجين مهتمون خلق. 
الذكية العملاء على تطبيقات ويندوز مع المزيد من الميزات المتقدمة » مثل القدرة ظٌ 
یكی استخدام خدمlات‏ اlلشبnکكة‏ lاllalية (RSS Feed Readers)‏ وتسمح برمجيات 
: التحديثات التلقائية. مع. .غNe‏ ومن الأسهل بكثير ان إنشاء التطبيقات الذكية 
العملاء ا کڈ 2 قت ! ۳ 
: كثر من أي و مضی؟ : 
أ التطبيقات الشبكية د 
ڪڪ ي 
ي ي 
فlڼjùl rhe .N٤ ۴ramework‏ يتضمن مجموعة من السمات القوية على الانترنت » المعروفة : 
م باسم tع٥م.مىa‏ .» التي تسمح لك لإنشاء المشاريع الصغيرة ضخمة كالتطبيقات الشبكية. م 
ي ي 
#ه خدمات الشبكة ت 
و چ حص 
ي 
# خدمات الشبكة العالمية هي وسيلة لتبادل الرسائل بين نظامين. مع اعه"٣.مىه‏ يمكنك ع 
إنشاء خدمات ويب ا١‏ إن الرد على رسائل تنقل اكثر من بروتوكول انتقال النص 5 
المتشعب. ٍ 
ي ي 
نوافذ الخدمات ّ 
2 ويندوز خحدمات التطبيقات التي تديزها قي خلقية آ د اء المهام. فهي تسيطر عليها م 
ا مدير دائرة الرقابة. إيجاد خدمات ويندوز تستخدم لتكون أصعب بكثير ولكن مع - ت 
ا صافي الإطار ومن بالسهولة خلق أي نوع آخر من التطبيق. 
ي ي 
ڏ تعزية التطبدقات ت 
ي 
تعزية التطبيقات هي جميلة كثير نفس القيادة مدونة في ويندوز (انقر tخ٣هخكS‏ م 
ت البعيد » من نوع "عه×م.dلصع"‏ والصحافة طيب أن نرى قيادة مدونة). ي 
في. 1# بمكننا بسهولة إيحجاد تعزية التطبيقات. 
ي 2 ي 
2 الطىقة مكتنات 2 
ي ي 
4ه الطبقة المكتبة هي أساسا مكتبه المدونة. ويمكننا تخزين أقسام المدونة داخل 
ف الطبقة المكتبة وربط مشاريعنا إلى انه بدلا من إعادة تشفير نفس الشفرة في كل ا 
المشاريع التي تستخدم فيها. فهي تتيجح لنا أساسا لإعادة استخدامها عام أن 
: المدونة هي شائعة الاستعمال حتى إننا ابدأً إلى هQكهع‏ جديد. 
ي 
7 4ه الطبقة التي انشئت في المكتبة خعصط. يمكن استخدامها في أي مكان أخرخعطم. المشروع 7 
و ا ي 
# جهاز التطبيقات الذكبة ٍ 
ي ي 
م كما غعص. 4 المطور يمكننا أيضا أن تكتب التطبيقات التي تستهدف . NET Compact‏ م 
».NET Framework. .JJ ةخwi‎ compacted ga, «. Framework £‏ الذي هو الأمثل ليتم ٤‏ 
ي ي 
ي 
#8 تشغيله على الاجهزه بموارد اقل من عادي الجحاسوب » على سبيل المتال الاجهزه 8 
ا اليدوية. 2005 oنذudغخS‏ ۷isua1ا‏ وقد ذكية جهاز المحاكي للمساعدة على تطوير ي 
أ التطبيقات الذكية جهاز واحد دون فعلا امتلاك أداة ذكية. 
ي 
س ا ر د س 0 ا 
: 
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إعداد ونشر المشاريع 


مع 2005 vVisua1 Studio‏ يننا أن خلق المثبت مجموعات قوية لمشاريعنا. وإذا 
استخدمنا إيجاد همعصهckعة1ع‏ المثبت ثم بمكن أن يكون لنا برنا مجنا دوري التحقق من 
التحديث بدون كتابة أي هdه›!‏ 
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الحزء الأول 
المفاهيم الأساسية 


ء۶ 


الفصل الأول 
المتغيرات 


المتغبرات هي من المحتمل جدا الأكثر استخداما هي هة في إي لغة بريمحة » وأنها هي التي 
نستخدمها لتخزين البيانات فيها. 


ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ر 
ت 
ر 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
الاسم ئ الاسم هو ما نستخدمه للوصول إلى هذا المتغير » والخروج منها ا مجمو عة 
بياناته. ٍ 
نوع الببانات : بيانات النوع هو نوع البيانات التي ستخزن في المتغير » على سبيل هك 
المثال صورة سوف تخزن معلومات عن الألوان ومواقع للبكسل في صورة » والتاريخ سوف 
خزن معلومات عن اليوم والشهر والسنة . 
القدمة : القيمة الفعلية البيانات المخزنة في المتغير. 
ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ر 

ت 

ت 

ر 

ت 

ت 

ت 

ت 

ت 

ت 

ت 


النظر في المثال التالي. 


Dim TextInfo As String = "This is some data" 


أساسا ما قطعه من هذه المدونة هل هو خلق جديد متغبر يسمى "٥۴صذخ»×*هخ"‏ مع نوع 
البيانات "3«صة٣عtخS"‏ .» وهو نوع البيانات عذئB8a V1sua1‏ التي نص مخازن المعلومات > 
وتحدد قيمته إل "ةخمd‏ eمصso‏ كذ كiذطآ".‏ عندما خلق سلسلة القيمة ونحن أرفق 
البيانات في الأقوال الماثوره. "٥(1۳""‏ هي الكلمات الرئنيسية المستخدمة في النتص 
التشكيلي الأساسية للإعلان عن متغير » ولكننا سوف أعرفك المزيد عن ذلك في وقت 
لاحق. 


ا ا ر س 
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الفصل الثاني 
أنواع البيانات المشتركة 


Boolean 


تستخدم 1 تخزين حقيقر d‏ ق ز اثفة القر قيمة. 


Dim DotNetIsEasy As Boolean = True 


تستخدم البيانات التي تحتوي على ثنائي »> تتراوح بين ٠‏ إلى .٠١١‏ 


Dim SingleByte As Byte = 120 


Byte 


تستخدم لتخزين واحدة الطابع. 


Dim CharValue As Char = "C" 


Date 


تستخدم لتخزين موعد القيمة. 


Dim Date Value As Date = DateTime. Today 


DateTime. Today‏ يحصل التاريخ الجحالي 


Decimal 
) ٩ ( 


ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
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ي 
ي 
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ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
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ٍ 
ٍ 
ٍ 
ٍ 
ٍ 
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ٍ 
ٍ 
ٍ 
ٍ 
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تستخدم لتخزين القيمة العشرية. 
اكير قيمة ممكنة هو + / = ge VITTAITTo\lETIETTVYo1 Too YY o‏ ۸ أ رقام عشريه . 


Dim DecimalValue As Decimal = 2.0001232 


Double 


تستخدم لتخزين مزدوجة الدقة النقطة العائمة الأرقام أن يراوح في قيمة من - 
۰+ هص طريق = e - 324,40٦٥ 1٤0۸٤11 ٤10٤٤1‏ للقيم 

السلبية ومن 324:,۹:0٦٥1٤٥۸٤١ ٤٦0٤٤1‏ - ه عن طريق ۷0°١٠۸711:٤۷۹4۷1۹۱۳,ا308+ e‏ 
القيم الايجابية. 


Dim DoubleValue As Double = 2.1221 


Integer 


عدد صحيح يستخدم لتخزين القيم التي يمكن ن تتراوح بین ۲۱٤١۷٤۸۳۲1٤۸۳‏ إل 
.TIEVEATTEY‏ 


Dim LongValue As Integer = 23 


Long 


عاد صعيح يستخدم لتخزين القیم الي بمکن ان تتراوح بین =۸ ۹۲۲۲٣۲۷۲۰۳۲۸02۷0‏ 
.ITYTYTTVY‘TIAoEVVYoA* YJ‏ 


Dim LongValue As Long = 23‏ 
تستخدم لتخزين وصلات إلى أي نوع من الاعتراض. 


Dim Object Value As Object = "We will store a String here" 


Object 


Short 


ي 
ي 
ي 
ي 
ي 
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ي 
ي 
ي 
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ي 
ي 
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ل( u (١١‏ 
ensert.net2000 @ gmail.com www.Ensertnet2000.all-forum.net #‏ 


سے م م ا می می می می ا می می می مر ا م م م ا م م م م ف فی ی ا ف کی 


PDF created with pdfFactory trial version www.pdffactory.com 


gr a am n n r ım n mı n n mı a n mı mn n n mı mn a n ma n a n a mn a n mt n a mn mı mı a n 


عاد ضجيج يبستخدم لتخزين القيم الي تاراوح بين ك™١۸٣١۷٣٣‏ إل ۷آأ۷؟؟: 
Dim ShortValue As Short = 23‏ 


تستخدم لتخزين واحدة الدقة النقطة العائمة أرقام تتراوح قيمتها من - 
٠e +38, ٥0‏ طريق = ١۹۸١١١٤,ا45‏ - e‏ للقيم السلبية ومن ۹۸١١١٤,ا45‏ - e‏ عن 
طريق ٠ +381,٤١١۸١١‏ للقيم الايجابية. أحادي الدقة تخزين أرقام تقريبية من 


العدد الحقيقي. 
Dim SingleValue As Single = 0.1‏ 


تستخدم لتخزين سلسلة من يصل إلى ما يقرب من ؟۲ مليار (۲ “^ )۳١‏ حرفا. 


Dim StringValue As String = "This is a string" 


Single 


String 
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ي 
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ي 
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ي 
ا ا را ت 
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۰ ® ھ م 
الفصل التالت 
ي ي 
ي ي 
ي 0 Xb‏ ي 
المعا ک‌ : 
ي 
ي ي 
المعاملات الحسابيه 
ي ي 
7 ^ المعامل : 
ا َ ي 
۽ يثير عددا من السلطة إلى عدد اخر. 8 
ي ي 
ي 
result = number ^ exponent‏ 
ي ي 
ي ي 
ع والنتيجة هي عدد المثارة إلى السلطة من داعية »> وكما دائما مزدوجة القيمة. 
سواء من حيث العدد وداعية يحب ان يكون من النوع المزدوج البيانات »> أو خلاف 8 
م ذلك سيحصل تلقائيا تحويلها إلى مضاعفة. قيمة للداعية يمكن جزئي » سلبية »› ن م 
ي ٠‏ 
عندما يكون هناك أكثر من واحد الترقية أدوا تعبيرا واحدا »> هو معامل ^ ت 
تقييمها كما هي واجهت من اليسار إلى اليمين. ٍ 
ي ي 
ا * معامل 
ي 
ق يضاعف الرقمين. 5 
ي ي 
ي 
result = numberl * number2‏ 
ي ي 
ي ي 
والنتيجة هي iةliج .number2 , number1‏ ع 
ا جميع أنواع عدديه تحظى بدعم والبيانات الناتحة من النوع تتوقف على نوع من يطبق ل 
ه عليهم العملية الرياضية. 
ي ي 
ا / المعامل 5 
ي ي 
يقسم الرقمين والعودة عائم نقطة نتيجة. 
ي 
result = numberl / number2‏ 
ي 
جميع أنواع عدديه هي مدعومة. والنتيجة هي القسمة علي السواء بما في ذلك أي 
أرقام المتبقية. البيانات الناتحة يتوقف على نوع من أنواع البيانات الرقمين. 
ي 
ي 
| المعامل 
ي ي 
بل xxx ( ١١‏ 
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يقسم الرقمين والعودة نتيجة وجود عدد صحيح. 


result = numberl1l \ number2 


جميع أنواع عدديه هي مدعومة. والنتيجة هي خارج القسمة عدد صحيح number1 jn‏ 
مقسوما 2٣إعمطصmصnu‏ . الي تزيل أي تنقى. وتتقى. سوئ خزء غداد ضخيح.ء. .التتانات 
الناتجة يتوقف على نوع من أنواع البيانات الرقمين. 

Mod‏ العامل 


يقسم الرقمين والعودة فقط الباقي. 


result = numberl1l Mod number2 


جميع أنواع عدديه هي مدعومة. والنتيجة هي ما تبقى بعد خروج 2٣١٥٠طصسuم‏ ينقسم 
number1‏ . 


+ معامل 


ويضيف الرقمين معا. 


result = numberl1 + number2 


النتيجة هي مجموع كل الأرقام. أي عد دي أنواع مدعمه. 


- المعامل 


العودة الفرق بين اثنين من التعبيرات الرقمية. 


result = numberl1 —- number2 


ي قيم رقمية يتم دعم. والنتيجة هي اiلفرJ‏ ڊjùı .number2 , number1‏ 


ت 
ت 
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ت 
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ت 
ت 
ت 
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ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
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ت 
ت 
ت 
ت 
ت 
ت 
ت 
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result = variable 


ي أنواع البيانات هي مدعومة. 
^ = المعامل 


يرفع قيمة متغير إلى السلطة للتعبير عن ويسند تتيجة عودة إلى المتغير أ 
اللمفتلكات: 


variable ^= expression 


أي بيانات رقمية هي أنواع الدعم. 


/ = المعامل 


result /= expression 


وتؤيد أي نوع حطاتات رقفية. 


result \= expression 


وتؤيد أي نوع بيانات رقمية. 
+ = المعامل 


ويضيف قيمة إلى عدد قيمة عدد آخر. 


result += expression 


النتيجة هي مجموع كل الأرقام. وتؤيد أي نوع بيانات رقمية. 
-= المعامل 


يطرح قيمة عدد من قيمة خر قك :ةة 


ا 0 ر ا 0 
ت 
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مقدمة في الفيجوال بيسك دوت نت ٠٠٠٠١‏ بواسطة اندرو فوس ترجمة : محمد على يوسف 


result —-= expression 


والنتيجة هي تعبير عن حق تطرح من التعبير عن اليسار. وتؤيد أي نوع بيانات 
رقمية. 


<<= معامل 


يودي الخساب على اليسار تحول قيمة متغير ويسند نتيجة عودة إلى المتغير. 


expressionl <<= expression2 


>> = المعامل 


يؤدي التحول على حساب الحق قيمة متغير ويسند نتيجة عودة إلى المتغير. 


expressionl >>= expression2 


string1 >>= string2 


بت التحول معاملي 
<< المعامل 


يؤدي التحول على حساب اليسار قليلا التمط. 


result = pattern << amount 


وستكون النتيجة نتائنج تحويل نمط قليلا من المبلغ. نوع البيانات عاد سوف يكون 
ت ا 


>> المعامل 


يؤدي التحول على حساب الحق قليلا النمط. 
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بواسطة اندرو فوس ترجمة : محمد على يوسف‎ ۲٠٠١ ا مقدمة في الفيجوال بيسك دوت نت‎ 
result = pattern >> amount 


وستكون النتيجة نتائج تحويل مط قليلا من المبلغ. نوع البيانات عاد سوف يكون 
نس اا 


مقارنة بين المعاملين 
<المعامل 


ويقارن اثنين قيم رقمية لتحديد ما إذا كانت واحدة اقل من الأخرى. 


result = numberl1 < number2 


ونتيجة ذلك هي تحديد قيمة منطقي إذا 1٣إع٧مطصسuم‏ هو اقلJ .number2 jn‏ 


<= معامل 


ويقارن اثنين قيم رقمية لتحديد ما إذا كان احد أقل من أو مساو لغيره. 


result = numberl1l <= number2 


ونتيجة ذلك هي تحديد قيمة منطقي إذا 1٣إع٥٧مطصسناص‏ هو أقل من أو يساوي .number2‏ 


س 


> المعامل 


ويقارن اثنين قيم رقمية لتحديد ما إذا كانت واحدة اكير من الأخرى 


result = numberl1l > number2 


ونتيجة ذلك هي تحديد قيمة منطقي إذا 1٣إ٩طصnum‏ اکبر .number2 jin‏ 
> > المعامل 


ويقارن اثنين قيم رقمية لتحديد ما إذا كان احد اكبر من أو مساو لغيره. 


result = numberl1 >= number2 
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.number2 ونتيجة ذلك هي تحديد قيمة منطقي إذا 1٣إع٧مطصستاص هو اكير من ا يساوي‎ 


يقارن بين اثنين من المتغيرات وتحديد ما إذا كان أنهم متساوون. 


result = variablel = variable2 


وتعيد تحديد قيمة منطقي إذا 1٥1طaةذ٣إaدمس‏ يساوي .variable2‏ 
<> معامل 


يقارن بين اثنين من المتغيرات وتحديد ما إذا كان أنهم ليسوا على قدم المساواة. 
result = variablel <> variable2‏ 


وتعيد تحديد قيمة منطقي إذا 1٥1طaة1٣إجما‏ عتلفا عن .variabl1le2‏ 
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أ يقارن بين اثنين من وجوه إشارة المتغيرات. 
ٍ 
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ٍ 
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ٍ 
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ٍ 


result = objectReferencel Is objectReference2 


ونتيجة ذلك هي تحديد قيمة منطقي إذا اثنين وجوه إشارة إلى المتغيرات نقطة الجسم 


يقارن بين اثنين من وجوه إشارة المتغيرات. 

result = objectReferencel1l Is objectReference2 

ونتيجة ذلك هي تحديد قيمة منطقي إذا اثنين وجوه الإشارة إلى نقطة المتغيرات بمختلف 
likeا‏ الgعامل‏ 

ويقارن سلسلة ضد غعطا معينا. 


result = stringValue Like pattern 
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والنتيجة هي قيمة منطقي يشبر إلى ما إذا كان وصقعخى أو لا تستونفي النمط. إذا 
كان كل من 3”٣1٣إغخى‏ وغعط تعتبر لاغيه بعد ذلك نتيجة صحيح. 
سلسلة معاملي 
& المعامل 
يولد سلسلة من التعببرات اثنين. 
result = stringValuel & stringValue2‏ 


والنتيجة هي سلسلة قيمة 1عr1n3gva21uاst‏ ,tringva1ue2ء‏ انضمت معا. 


يولد سلسلة سلاسل من التعبيرات اثنين. 


result = stringValuel + stringValue2 


والنتيجة هي سلسلة قيمة 1عstr1n3gva21u stringva1ue2,‏ انضمت معا. 

Logical/Bitwise Operators 

And‏ المعامل 

يؤدي منطقيا إلى جانب عبارات منطقي على اثنين » أو هئذسخذط جنبا إلى جنب على 


اثنين من التعبيرات الرقمية. 


result = expressionl And expression2 


منطقي للمقارنة ستكون النتيجة المنطقية جنبا إلى جنب من اثنين منطقي القيم. 
وستكون النتيجة إذا كان صحيحا سواء expressio¬n1‏ و,expression2‏ تقییيم صحیح ل. 


لعitwisزط‏ عمليات النتيجة هي قيمة عدديه تمثل هئذسخةط بالاشتراك اثنين من أنغماط 
عك دة .فلبلا 


لماعaلا‎ Not 


يؤدي منطقيا إنكار منطقي على التعبير ء أ مitwisط‏ الإنكار على رقمية التعبير. 


result = Not expression 


) ۱۸ ( 
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وإذا كان التعبير يقيم إلى صحيحا تم ستكون النتيجة كاذبة » والعكس بالعكس. 


يؤدي منطقيا المفرق على اثنين منطقي عبارات » أو هعذسخةط المفرق على اثنين من 


result = expressionl Or expression2 


منطقي للمقارنة النتيجة ستكون شاملة منطقي المفرق اثنين منطقي القيم. 
لeم1itwisط‏ العمليات ستكون النتيجة قيمة عدديه تمثل شاملة عه1sس٤خ1ط‏ المفرق اثنين 
من أغاط عدديه قليلا. 


يؤدي منطقيا استبعاد اثنين على عبارات منطقي »› أو 1twise‏ الاستبعاد على اثنين 


result = expressionl Xor expression2 


ي ي 
ي 
ي 
ّ 
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ي 
ي 
ي 
ي 
ي 
ي 
ي 
منطقي للمقارنة ستكون النتيجة المنطقية استبعاد اثنين منطقي القيم. ل٥ھsذسt٤iذظ ‏ 
العمليات ستكون النتيجة قيمة عدديه تمثل عهsئ1سغخ31ط‏ استبعاد اثنين من أغاط عدديه 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي ّ 


يؤدي قصيرة الدوران المنطقية جنبا إلى جنب على اثنين من التعببرات. 


result = expressionl1l AndAlso expression2 


والنتيجة هي منطقي نتيجة للمقارنة بين اثنين من التعبيرات. 
Orelse‏ الGعامل‏ 
يؤدي قصيرة الدوران شامل منطقي المفرق على اثنين من التعبيرات. 


result = expressionl OrElse expression2 


والنتيجة هي قيمة منطقي. إذا كان لأحدها ا لكليهما لتقييم التعبيرات الحقيقية 
> نتيجة صحيح. والجحدول التالي يوضح كيفقية نتيجة عاقدة العزم. 


معاملات متنوعة 
ا س د و س 
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لماعgلا‎ Addressof 


يخلق الأجراء مندوب المثال إن الإشارات الممحددة الأجراء. 


AddressOf procedureName 


في هذه المدونة edurenameمعدامp‏ هو الأجراء الذي سيتم المحشار إليها من فقيل متدوب 


الأجراء الذي أنشئ حديثا. عندما يحتج مندوب الحدد اسلوب يسمى. مزيد من 
المعلومات حول المندوبين سيتم تغطيتها في وقت لاحق. 


ettypeي‏ العامل 


عودة توع الجسم لنوع محدد. 


GetType (TypeName) 


عودة نوع الجسم للمحدد م"ة”عطرغخ. يمكنك تمرير اسم أي نوع البصرية البيانات 
الأساسية النوع أو هذا السرد > ونوع إي اسم الطبقة »> والمندوب » والسرد » 
وحده » أو وصلة الهيكل المحدد في طلبك » أو نوع من أي اسم. الصافية في إطار 
الطيبقة » تعداد » وحده » وصلة أو هيكل. 


ممettyعي‏ هو مفيد إذا كنت بحاجة إلى معرفة ما اذا كان اثنان الأشياء هي من نفس 
النوع. 


Typeof‏ المعامل 


ويفارن جسخ الإافازرة إل متعير توغ الياتاتء 
result = TypeOf variable Is Type‏ 


4ه منطقي قيمة العائدات » وتحديد ما إذا كانت من نوع المتغير هو النوع. 


النظر في المثال التالي. 
result = TypeOf "StringValue" Is String‏ 


النتيجة ستكون متساوية صحيح O‏ المتغير تجاوزنا هو نوع من St٣1”9‏ 
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الفصل الرابع 
وصول معدلات 


ما ف لوصول 1ل ا 


وصول معدلات هي الكلمات الرئيسية التي تتحكم في الوصول إلى مستوى العتاصر في 
لمدونة. 


أقول لدينا اثنين من الأجسام » 1غء٥زطه‏ و2غcءمزطه.‏ إذا ect1زطه‏ له طريقة تسمى 
dostuf۴f‏ إن يعلن الخاص » وعندئذ فقط المدونة داخل هذا الجسم سوف يسمح للدعوة »> 
أو حتى انظر هذه الطريقة. إذا u۴۴غخosمdك‏ هو عذاطس .» ثم أعلن أن أي جسم سوف 
يسمح لهم انظر والذي يطلق عليه. 


عتقد من ضوء التحول كما جسم أو الطبقة. الفعلي زر إننا الصحافة ستكون عامة 
> متاحة للجميع » ولكن داخل الأسلاك هو الخاص > لأنه ليس المطلوب منا إن تؤديه 
حولها مع ا لأسلاك للحصول على ضوء العمل ؛ ونحن للتو قد تصل إلى هذا التحول. 

وصول معدلات تستخدم مثل هذا » عندما تصنع الجسم التي قد مهام محددة متاحة 


للجميع > وغيرها من المهام التي تتحكم في أعمال الداخلية للجسم > التي لا تتوفر 
إلا لمدونة داخل ذلك الجسم. 
Public‏ 


رن عiاPub‏ يسمح عنصر في السؤال الذي يتعين الوصول إليه في أي مكان من مدونة 


Public element As Element 


بمكنك استخدام عذاطنا٥‏ فقط في التفاعل » وحده » أو على مستوى الجرد. 
Protected‏ 


تحديد dء†ءمادعP‏ تتيح للعنصر في السؤال الذي يتعين الوصول أليه من مدونة إلا في هذا 
المستوى > ا ف أي .sublevels‏ 


Protected Class SampleClass 


يمكنك استخدام لعاءماهء۴ فقط على مستوى الطبقة عندما يعلن احد أفراد وحدة 
الطبقة 


(CT) 


ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 

ensert.net2000 @ gmail.com www.Ensertnet2000.all-forum.net # 


اسر ری می ا مر می مر می ا م م م م ا می می م ا م می می کی 


PDF created with pdfFactory trial version www.pdffactory.com 


r a a n n r ıa n mı n a mı mı n mı mn ıı mı mı n mı n a a mı n a n a n a n mt n mn a mı n a n 


Friend 


صديق تتيح تحديد عنصر في المسالة التي ينبغي الوصول إليها إلا من داخل المدونة 
الجالية للجمعية العامة ,(راaإط11 or cass‏ icationاapp)»ء‏ وليس من أي مكان خارج الجمعية. 


Friend element As Element 


بمكنك استخدام وصلة فى صديق فقط » وحده أو على مستوى الجرد. 
Protected Friend‏ 


تحديد لع)اءعامع۴ و الصديق معا يسمح ل في المسالة إلى إن يتم الوصول إلى الإطلاع فقط 
من قانون مستمد من داخل الصفوف او داخل الجمعية نفقسها.ء 


Protected Friend element As Element 


يمكنك استخدام إع)عم)ادء۴ صديق فقط على مستوى الطبقة. 
Private‏ 


تحديد هخمرة٣۶۴‏ ويسمح عنصر في المسالة التي ينبغي الوصول إليها إلا من داخل 
الطبقة الواحدة » أو هيكل المركبة. 


Private element As Element 


Dim 


لأننا لا بمكن إلا إن استخدام وحدة خاصة في المستوى » ونحن نستخدم قائمة عندما 


نعلن أننا بحاجة إلى عناصر داخل الأجراء. ويمكننا أيضا استخدام قاتمة في مستوى 
وحده « ومن حيیû .Private Jaa‏ 


Dim element As Element 


)( ۲ ( 


ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 

ensert.net2000 @ gmail.com www.Ensertnet2000.all-forum.net # 


اسر یی می ا مر می مر می ا م م م م ا م می م ا م می می کی 


PDF created with pdfFactory trial version www.padffactory.com 


r a a n n r ıa n mı n a mı mı n mı mn ıı mı mı n mı n a a mı n a n a n a n mt n mn a mı n a n 


ع :فة فى ارال بيك درت فت ٠١5‏ بواسطة اندرو فوش از خا خي جلى وو 
الفصل الخامس 
مدونة تعلبقات 


تعليقات المدونة هي طريقتنا في توثيق هذه المعاهدات من المدونة أن نكتب » 
لمساعدتنا في فهم ما يفعل المدونة > التي تروج لمقروءين كميات كبيرة من المدونة. 
إضافة إلى العديد من التعليقات ليس جيد » رغم ذلك » ويمكن للفوضى الشفرة » 
لذلك نحن فقط استخدام التعليقات حيث سيكون عملي. 

وي ع٤s1ئBa Visua1‏ التي نستخدمها 'رمزا لكتابة التعليقات المدونة » على سبيل 
المثال 


'Set my text to a different value. 
Me.Text = "This Is My Text" 


"Close this window. 
Me.Close () 


ويمكننا أيضا إضافة تعليقات في نهاية الخط »> والتي بمكن أن تؤدى إلى إنقاذ الفضاء. 


Me.Text = "This Is My Text" 'Set my text to a different value. 
Me.Close() 'Close this window. 


عندما أنت الكتابة مشروع كبير > وغيرها من الشعب التي قد تضطر إلى العمل على أو 
الحفاظ عليه » ومن الضروري أن تقوم إضافة التعليقات » حت يتسن لهم فهم ما كنت 
أفكر في ذلك الوقت » ولما كنت تحاول أن تفعل مع القطع الخاصة بك مدونة. 
وهناك طريقة أخرى لجعل هdه€٤‏ أكثر قراءتها هو أنها مجموعة إلى المناطق. إذا كان 
لنا أن نلقي نظرة على بيئة تطوير متكاملة > وسوف نرى أن الطبقات وغيرها من 
التركيبات يمكن مطوية. 

E] Class DoStuff 


Class 


ال = علامة يمكن النقر فوقه > نما يخلق أكثر من نسخة الميثاق الطبقي. 


AClass DosStuff ... 
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ولكننا لا نستطيع المضي خطوة ابعد » وأرفق هذا بناء المنطقة باستخدام‎ 
Region..#End Region# 


E] #Regqion "Class that does stuff" 
Class DoStuff 


End Class 
#FEnd Region 


وحن الآن عندما إضعاف عنه »> 


وهذا يساهم في خلق مزيد من المدونة.ء 


)( ٣٤ ( 
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الفصل السادس 
السيطرة على تدفق 


ما هو "السيطرة على تدفق"؟ 


مراقبة تدفق سيلة لتنظيم إعدام بنات المدونة في التطبيقات الخاصة بك. دون 
مراقبة تدفق طلباتنا سوف تدار من السطر الأول من المدونة حتى النهاية » تفقعل 
نفس الشيء بالضبط في كل مرة » ونحن لن تكون قادرة على تغيير الطريقة التي تدير 
البرنامج خلال وقت التشغيل. مع مراقبة البيانات يمكنك أن تكتب التطبيقات التي 
تحعل القرارات » واكرر الإجراء ات حسب الظروف » التي هي هة أساسية من سات وجوه 
جميع لغات البرججة الموجهة. 


GOTO 


فروع هذا البيان إلى خط المدونة داخل الطريقة الجالية. ومن استخدمها أول خلق 

علامة في مكان ما من الطريقة الجحالية » تليها القولون » وبعد ذلك تنفيذ "0خهي 
e1nameط1a"‏ . العلامة قد يكون قبل أو بعد "غي eمe1namط1a"‏ » ولكن يجب أن تكون 
د اخل الطريقة الجالية. 


GoTo Label1l 
'Code placed here will not execute. 


Label1l: 
'Code placed here will execute. 


أوامر التكرار 
If... Then...Else‏ 
هذا البيان بشكل مشروط ينفذ هdQdه€‏ تبعا لقيمة 4 التعبير. 
هناك طرق عديدة لاستخدام هذا البيان. 
If condition Then‏ 
'some code here‏ 


Elself condition Then 
'some code here 


Else 
'some code here 
End If 


Te) 
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5 مقدمة في الفيجوال بيسك دوت نت ۲٠٠١‏ بواسطة اندرو فوس ترجمة : محمد على يوسف 


Tf condition Then 
'some code here 
Else 
'some code here 
End If 


If condition Then 
'some code here 


Elself condition Then 
'some code here 
End If 


If condition Then 
'some code here 
End If 


If condition Then 'some code here Else 'some code here 


If condition Then 'some code here 


على سبيل المثال » أن نقول أننا نحتاج إلى تنفيذ هQكه٣‏ .» وهذا يتوقف على قيمة 


متغير اسم va1ueوnصذاإtغى.‏ إذا كانت قيمة va1ueوinإtغىs‏ هو أن أيا من القيم 
المتوقعة .» ثم فرع آخر من ينفذ الكود. 


If stringValue = "STRING1" Then 
'code group 1 

Elself stringValue = "STRING2" Then 
'code group 2 


Else 
'code group 3 
End If 


ا د 
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مقدمة في الفيجوال بيسك دوت نت ۲٠٠٠١‏ بواسطة اندرو فوس ترجمة : محمد على يوسف 
في هذا المثال » إذا كانت قيمة v21ueسوin٣اst‏ يساوي "ing1اtء"‏ ثم "مدونة المجموعة 
"١‏ ستنفذ وإذا كانت القيمة هي "92٣1٣خء"‏ ثم " "cde group‏ ستنفذ » وخلاف ذلك 

'code group 3‏ ستنفذ. 

وإذا كنا للتو اللازمة لتنفيذ مدونة تبعا |إذ|ا û "stringl" aslwي stringvalue‏ 
انتا ,سوف تستحن. التالة التتفنة. 


If stringValue = "STRING1" Then 'some code here 


إذا نحن بحاجة أيضا لتنفيذ مدونة إذا لي تكن القيمة المتساوية إلى "1و”صذعtغء" ¿û‏ 
أننا ممكن استخدام التالي التنفيذ. 


If stringValue = "STRING1" Then 'some code here Else 'some code here 


عليك الآن أن نرى كيف يمكن ربما من المفيد لوس ثم أمر آخر » وتعلمت كل الطرق 


التي بمكنك تنفيذها. ليس هناك أي سبيل للإفلات من البيانات مشروطة ؛ أنكم على 
الأرجح استخدامها في كل تطبيق أو قطعة من المدونة تكتبها. 


Select Case 


ينفقذ هذا البيان واحدة من مجموعات كثيرة من البيانات » وهذا يتوقف على قيمة 
تعبيرا. عندما أنت فحص واحد متغير بالنسبة للعديد من قيم عغختلفة »> ومن أكثر 
كفاءة لاستخدام هذه البيانات. 


Select Case expression 
Case expressionl 
'some code here 
Case expression2 


'some code here 
Case Else 
'some code here 
End Select 


بعض الامثله المدونه باستخدام الخيوط... 


E Eee E TE E E E E E 


ا ا ا ا 
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Select Case stringValue 


Case "All" 

'some code here 
Case "Your" 

'some code here 
Case "Base" 

'some code here 
Case Else 

'some code here 

End Select 


بعض الامثله على الأعداد الصحيحة باستخدام المدونة.. 


ة 
ة 
ة 
ة 
ة 
ة 
ة 
ة 
ة 
ة 
Select Case integerValue‏ 
Case 0‏ ت 

'some code here 
Case 1 

'some code here 
Case 2 

1 

ٍ some code here 
Case 3 

'some code here 
م‎ Case Else 

'some code here‏ ع 
î | End Select‏ 
ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 


ممكننا استخدام أكثر من قيمة واحدة في حالة الكتلة جداي. 


Select Case integerValue 
Case 0, 1, 2 
'some code here 
Case 3 
'some code here 
Case Else 


'some code here 


End Select 
؟" الشيكات لكل واحد من هؤلاء الثلاثة الممكنة‎ » ١ >» ٠ C€مئ#" أشعار أول كتلة‎ 
'!؟) > والتي بمكن إن تكون مفيدة للغاية في بعض الحالات. الاكواد‎ >» ١ >» ٠١( القيم‎ 


ذاته » كما يمكن أن تكون مكتوبة باستخدام " إلي". 


ا ا ا 
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Select Case integerValue 
Case 0 To 2 
'some code here 
Case 3 


'some code here 
Case Else 
'some code here 
End Select 


إذا لم تكن أي من القيم في حالة القطع متساوون إلى التعبير » ثم المدونة داخل 


"ase Else"‏ ستنفذ .» وإذا كان خلاف ذلك "٥ئ1٤‏ هs@€"‏ لا وجود له » تم لا يزال 
كود الإعدlم‏ فgرا|I‏ ڊagد "End Select"‏ . 


ويمكننا أيضا استخدام هو المقارنة مع مشغل (انظر : "مقارنة بين المشغلن") . 


Select Case integerValue 
Case Is > 1 
'some code here 
Case Is < 1 
'some code here 
End Select 


أول حالة كتلة ينفذ إذا 7a1ue٣إموعntة‏ اكبر من ١‏ » والعكس بالعكس. 


الحلقات التكرارية 
For. ..Next‏ 


ويكرر هذا البيان على قسم من المدونة عددا معينا من المرات. 


For counter As datatype = start To end Step stepValue 
'some code here 
Exit For 


'some code here 
Next counter 


ET MO MO A MO MO O O A O OO N A OO O DQ AOA O O DBD AO O DBD AOA OO O DO AO O O DBD A OO O DBD AO OO O DBD A OO O OQ DBD AO O DBD A OO O DO DBD A OO O DQ DBD A OO OQ DBD A O OO RB MAM 
e ea e eae e ae E. 


ويحب أن تكون قيمة عدديه » الذي هو المتغير الذي سيستخدم لمدونة في الجحلقة. الجلقة 
ستستمر حت قيمة "٣إمخunدcع"‏ .» وهي تساوي قيمة "end"‏ . 

"ueا1اstepPVa "Step‏ هو اختياري (1- ٥غ‏ defau1tsا)‏ » وإنما هي أيضا مفيدة 
للغاية. كيف تعمل الدوارة هو المتغير "٣إعهخ”صuاهء"‏ تبدأً على القيمة التي حددها 
"tاإهtء"‏ ويعمل في طريقها من خلال هذا الكود إلى أن تصل إلى "غخ»*جمN"‏ . ثم يضيف 
قيمة 

د س ا س ج ا د د 
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بواسطة اندرو فوس ترجمة : محمد على يوسف‎ ۲٠٠٠١ مقدمة في الفيجوال بيسك دوت نت‎ 
ويستمر من بداية مرة أخرى.‎ "counter" إل‎ "stepva1اue"‎ 

أقول لدينا مجموعة من الخيوط يسمى "كعuاهةاوصذعغيى‏ ()" » مع عشرة الخيوط المختلفة 

> ويتعين علينا تحويل كل الخيط إلى حرف كبير. 


For arrayIndex As Integer = 0 To 9 
ConverToUpperCase (stringValues (arrayIndex) ) 


Next counter 


في هذا المثال نترك اصل "ع۷a1uمعهtء‏ pعهtغك"‏ أننا باستخدام الافتراضي stepvalue‏ « 
الذي هو ودائها "#۴" , 


ماذا سيحدث هنا هو الكود يخوض لمرة واحدة كل قيمة من ٠١‏ إلى ١٩‏ (وهو ما قد يعني - 
في المدونة بين ستنفذ ٠١‏ مرات( <« arrayindex‏ gوtinخremenعnة‏ في كل مرة » ونحن 
نستخدم ×ه٥لd٣1رaم٣إ٣إa‏ إل مرجعيه البند في طائفة sعەv2a1uا1n3gاst‏ مع فهرس 
.arrayindex‏ 


إذا أردنا الذهاب إلى الوراء من خلال sم1uامروصمذعغى‏ (من العاشرة البند إلى الأول 
البند (ثم أننا سوف تعدل الدوارة لجعله يذهب من ۹ إلى stepvalue lqذilطeإlyو « ٠‏ 
قن کک 


For arrayIndex As Integer = 9 To 0 Step ¬ 1 
ConverToUpperCase (stringValues (arrayIndex) ) 


Next counter 


For arrayIndex As Integer = 0 To 9 Step + 2 
ConverToUpperCase (stringValues (arrayIndex) ) 


Next counter 


وكما ترون » وهذه الأنواع من الجحلقات مفيدة للغاية. 


Do...Loop 


ويكرر هذا البيان فرعا للكود » في حين أن شرط منطقي صحيح أو حتى يصبح الشرط 
صحيحا. 


وهناك طريقتان لاستخدام هذا البيان » ولك أن تختار الذي يلائم لكم أفضل. 


ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي 
ي ي 
ي ي 
ي ي 
ي 
ي ي 
ي ي 
ي 
ي 
ي ي 
ي ي 
ي ي 
ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي 
ي ي 
ي ي 
كفا آنا قد تاج لبدنل كل ان قط فة جرف كير 
ي 
ي 
ي 
ي ي 
ي ي 
ي 
ي ي 
ي 
ي 
ي 
ي ي 
ي ي 
ي 
ي ي 
ي ي 
ي ي 
ي 
ي 
ي 
ي ي 
ي 
ي ي 
ي 
ي 
ي 
ر 
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ع Do While or Until Condition‏ | #§¥ 
ت 'some code here‏ ا 
Exit Do‏ 
'some code here‏ 
ي i Loop‏ 
ي ي 
ي 
ي ي 
ي ي 
Do‏ | 
'some code here‏ 
Exit Do‏ 8 
ي 'some code here‏ ي 
Loop While or Until Condition‏ 
_ 1 ٍ 
الشرط جب تقفقيتلم نطقي إل التغتير: ٍ 
ي ي 
م اغعتفاد! علي إذا كلت تستخدمع ا حت حين »> في أي شيء = بین "00" ص٥٥ا‏ "سوف تتکرر م 
ي حتى إما الشرط إلى نتائج حقيقية أو كاذبة .> واحد فقط من حين إلى حين » أو يمكن ٤‏ 
استخدامها. ٤‏ 
ي ي 
# بينما إذا استخدمت » ثم الجحلقة سيكرر حتى قيمة الشرط » وهي تساوي كاذبة. ٤‏ 
ا حتى إذا استخدمت » ثم الحلقة سيكرر حتى قيمة الشرط هو الصحيح. 5 
ي 
"Exit Do"‏ هو اختياري » ونقل السيطرة على الخروج من الجحلقة »> واستمرار تنفيذ 
8 المدونة مباشرة بعد الجحلقة. ي 
ي 
For Each...Next‏ 
ي ي 
ويكرر هذا البيان على قسم من المدونة عن كل عنتصر في مجموعة. 
ي ي 
ي 
g |For Each element As dataType In group ٍ‏ 
'some code here‏ 
ت Exit For‏ 
'some code here ٍ‏ ٍ 
ي Next element‏ | 
ي 
"As dataType"‏ هو اختياري. 
"Exit Fr"‏ هو اختياري ونقل السيطرة للخروج من الجحلقة »> واستمرار التنفيذ 
على الفور بعد .Next‏ 
تخيل لدينا مجموعة من الخيوط » كعم1uامvسومذعإtء‏ () .» الذي يتضمن عشر الخيوط » ونحن 
۾ بحاجة إلى تحويل كل الخيط إلى الاعلى القضية. ٤‏ 
ي ي 
وحن سوف تتخذ طائفة »> ولها تعديله في كل غ×ach...NeےE‏ مثل هذا م 
ي 
ي ي 
ي 
ي 
ي ي 
و 
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For Each stringValue As String In string Values 
.convert the value of string Value to upper case text' 


Next string Value 


أو أننا يمكن أيضا أن تفعل نفس الشيء مثل هذا 


Dim stringValue As String 
For Each stringValue In stringValues 


'convert the value of stringValue to upper case text. 
Next stringValue 


وكما لاحظت لديك على الأرجح » والطريقة الأولى هي إحدى اقل من خط المدونة » والتي 
اعتقد شخصيا هو أكثر بكثير مما بمكن قراءتها الثانية » ولكن هذا أمر متروك لكم. 
الثاني متغير يحتاج المرء إلى أن يكون خلق مسبت (stringvalue)‏ . 


While... End While 


هذا الهيكل ينفقذ سلسلة من المدونة ما دام الشرط صحيح. 


While condition 
'some code here 


End While 


الشرط يحب تقييم لقيمة منطقي. W11٥"‏ tخ1×٤"‏ هو اختياري » وخارج هيكل »> 
واستمرار كود التنفيذ فورا بgبد "End While"‏ . 


With...End With 


هذا البيان الذي ينفذ سلسلة من التصريحات المتكررة جعل الإشارة إلى واحد من 
9 


دعنا نقول لدينا جسم الثلاجة التي دعت بعض الممتلكات. الوصول إلى كل الممتلكات 
كiا kitchen.property right gid‏ ؟ 


.AppleCount 
. BananaCount 
. OnionCount 
.MilkLitres 


. EggCount = 12 


دسر ٣ا‏ )بے 
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ٍ 
ٍ 
ٍ 
ٍ 
ٍ 
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Exit While 
ٍ 
ٍ 
ٍ 
ٍ 
ٍ 
ٍ 
ٍ 
ٍ 
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بمكننا الآن استخدام هكnصع..طخة#‏ مع ذلك أن البيانات ليست لدينا كود لقدر. 


With Fridge 
. AppleCount 
. BananaCount 
. OnionCount 


.MilkLitres = 
. EggCount = 12 
End With 


أساسا يأخذ بعيدا الحاجة إلى نوع "عمو1d٣۴”‏ " وبدلا من ذلك انك لا تملك إلا ليصل إلى 
rr rr‏ 

وكما ترون » وهذه الطريقة هو اأ سهل بكثير وأسرع. لا تنسوا إن هذه التصريحات ؛ 
أنها ستساعدك بها كثبرا. 


عشعشه هبياكل المراقية 


يمكنك وضع هياكل المراقبة داخل هياكل المراقبة الأخرى. 4 مراقبة وضعت داخل بيان 
اأخر هو السيطرة على البيان قاJل‏ |إنjù nested"‏ ". 


في هياكل المراقبة 1ئ82 ¥1sua1‏ بمكن متداخل إلى ما يصل إلى المستويات التي ترغب 
فيها » والتي هي مفيدة جدا ولكن بمكن أيضا أن تخفض المقروءين. 


'This will never happen! ? 
End If 
End If 
End If 
End If 


If 1 = 2 Then 
Select Case 1 
Case 2 
Select Case 2 
Case 1 
Case 3 
End Select 
Case 3 
End Select 
End If 


سر ١آ‏ )ب ت 
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ا مقدمة في الفيجوال بي بيسك دوت نت ۲۰۰١‏ بوا سطة اندرو فوس ترجمة : محمد على يوسف 
العةث تثبت نها فر ة جدا ف کثير من | ظر وف اللختلفة. 


الخروج مراقية الببانات 


00 ( بمكنك استخدام "غخ1×عګ " البيان إلى الخروج من اصل معظم هياكل المراقبية‎ 
loops, For loops, Functions, Properties, Select statements, Subs, Try 
(Catch blocks or While loops 


Do or For or Function or Property or Select or Sub or Try oF ) اروج‎ 
(while 


على سبيل المثال »> اسمحوا خروج من اصل (طل1اك.. 
Sub DoStuff ()‏ 


'Code here will be executed. 
Exit Sub 


'Code here will not be executed. 
End Sub 


)( ٣٤ ( 


ensert.net2000 @ gmail.com www.Ensertnet2000.all-forum.net # 


سے ی م ا می می می می ا می مر می می ا م م م ا م می م م ف فی ی ا ف کی 


PDF created with pdfFactory trial version www.pdffactory.com 


r a a n n r ıa n mı n a mı mı n mı mn ıı mı mı n mı n a a mı n a n a n a n mt n mn a mı n a n 


الفصل السابع 


الأساليب 


ما هٴ " |لÎسuuJlw"‏ ؟Methods‏ 


لجعل البريجة أكثر عموذجية » يمكن قراءتها وإعادة استخدامها »> لدينا شيء يسمى 
الأساليب التي في حوزتنا. 


غا ان أن تنظر آلة تصوير مستندات هو طريقة. ولدينا شركة كبيرة » مع 
العديد من المستخدمين 8 الحاجة إلى جعل جميع نسخ. أليس مهن احتطفي أكثر أن يیکون 
سوى إله واحد ولجميع العاملين في استخدامها »> من اجل أن يكون لها ناسخة لكل 
موظف؟ 


و 
و 
و 
و 
و 
و 
و 
و 
و 
و 
و 
و 
و 
و 
و 
و 
و 
و 
و 
و 
و 
و 
و 
EEE ES‏ أي طلب بيمكن أن تفتح الملفات والاستيراد (منفصلتين قائمة الخيارات) . 
ويبمكن أن يكون لنا طريقة واحدة .» ربعا اسه وه1هaذdءwopenf11سoطء‏ . الذي يظهر ا 
مربع حوار مستعرض الملف تطلب من المستخدم لاختيار ملف » بدلا من الاضطرار تفس 
الكود في اثنين من آماكن محتلفة. 
و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 

و 


Sub ShowOpenFileDialog () 
"Show an open file dialog 


End Sub 


المهام والوظائف الفرعبة 
وف ٤s1ىBa Visu@a1‏ لدينا نوعين من الأساليب » ومهام الوظائف الفرعية. والفرق 
الرئنيسي بينهما هو أن احد عواند بقيnة (subroutine) YY رخzîllgو « (Function)‏ « 


ولكن كل منهم ما زال الأسلوب. 


في ۷1sua1 Bas‏ نعلن روتين ثانوي مثل هذا 


Sub SubRoutineName () 


End Sub 


ا 0 د و ا س ا 
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م نحن تضاف مدونة للروتين ثانوي في الفترات الفاصلة بين sub subRoutineName"‏ " و " ي 
End Sub f‏ ". 
ي 
3 فBas1ce Visua1‏ نعلن دالة مثل هذا 
ي ي 
ي ي 
ي ي 
Function FunctionName () As DataType‏ 
ي : 
End Function‏ م 
ي 
ي ي 
وكأنه روتين ثانوي < وحن تضاف مدونة لهذ ه الوظيقة ف الفترات الفقاصلة بين " 
End Function" „, " Function FunctionName‏ ". 
eمDataîyp‏ هو نوع من البيانات إن مهمة العودة. على سبيل المثال القادم وظيفة 
: العودة قيمتها مع البيانات نوع الخيط. : 
ي 
ي ي 
î | Function FunctionName () As String‏ 
ي 7 ي 
ت End Function‏ | # 
ي ي 
: على سييل المتال ء قه نكون ي يوع فمن الاياع أن يطلت فن مدونة طريقة ان يسترجع : 
: اسم المستخدم من الشخص الذي يستخدم هذا الكمبيوتر. ونحن من شآأنه أن يخلق دالة 
۾ على أن عودة سلسلة القيمة التي تحتوي على اسم المستخدم. 
في ما يلي المدونة نخلق سلسلة القيمة ودعا اسم المستخدم »> ثم وضعنا قيمة له. ونحن 
iسiwتخدşم Visual Basic Ji J| " Return"‏ مجموعة قيمة من وظيفة إلى القيمة المحددة ۾ 
ي > وهي في هذه الجحالة هو "اسم المستخدم". 8 
ي 
ي ي 
Function GetUserName () As String‏ 
Dim userName As String‏ 
'Insert code that retrieves the username of‏ 
ي 'the current user, and sets “userName” to that value.‏ ي 
Return userName‏ 
ي î | End Function‏ 
ي ي 
ي ي 
الشفرة التالية عندئذ خلق القيمة ودعا اسم المستخدم »> وبعد ذلك الدعوة إلى 8 
م وظيفة €"2٣٣er٥مtusغعو‏ لاسترجاع تلك القيمة. 2 
ي ي 
Dim userName As String = GetUserName ()‏ 
ي ي 
ي 
ي ي 
ي 
ي 
ي 
م ا 
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لكود الإجراءات الروتينية التي لا تحتاج إلى أن تكون قيمة عاد نحن نستخدم الوظائف 
الفرعية. على سبيل المثال قطعة من المدونة أن يغلق أي طلب يمكن أن يكون روتين 
iفilنوqي .shutdownapp |e‏ 


Sub ShutDownApp () 
"Insert code to close any open files. 


'Insert code to close the main window. 
End Sub 


إشعار ان روتینj‏ ilûنqaي‏ ا Return"‏ " 


طريقة بارامترات 
ويمكننا أيضا تمرير البارامترات إلى المهام والوظائف الفرعية. أضفنا معالم في 


الفترات القفقاصلة بين الأقو اس للتو بعد طريقهةه » وقع قواضل لقصل يبيتهمهاء 


Function DoStuff (ByVal Param As String) As String 


End Function 


Sub DoStuff (ByVal Paraml1 As String, ByVal Param2 As String) 


End Sub 


byref Jڊlãn‎ Byval 


اإمByv‏ عادة يمر نسخة من الجسم > في حبن #عمإyرط‏ بر فعلية ا وصلة الإشارة إلى ان 
وجوه. 


النظر في المثال التالي.. 
هذه الطريقة لها بارامتر اسم النص الذي اقر باستخدام 1ةررظ. 


Sub ModifyText (ByVal Text As String) 
Text = "THE MODIFIED TEXT" 


End Sub 


وهذه الطريقة ايضا لها بارامتر اسم النص » بل إنها مرت باستخدام #۴ع٥معرط‏ بدلا من ذلك. 


E EEE 
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Sub ModifyText (ByRef Text As String) 
Text = "THE MODIFIED TEXT" 


عندما ندعو الشفرة التالية باستخدام أول 1ةارط طريقه .» "غ»*جه71 " لن يتم 
تعديلها » ولكن عندما ندعو مستخدما الثانية fع٥عإرإط‏ طريقه .» "غخ»جه71 " وسوف 
يعدل. 


Dim Text As String = "THE UNMODIFIED TEXT" 
Me.ModifyText (Text) 


Text = ? 


ذلك أساسا إذا كنت في حاجة إلى تعديل قيمة بواسطة طريقة > ثم لك أن تمر قيمة 
باستخدام ۴۴٥إرط‏ » وألا تمر عليك مستخدما 1ةءرطظ (وهو الخيار الافتراضي) . 


إاثقال أسالسب 


في. .خNe‏ ومن الممكن الآن "adه1عءeمOv‏ " الأساليب » التي بمكن أن تكون قوية جدا إذا 
كنت تستخدم أنها حق. كالزائد هو أساسا وسيلة لخلق اثنين (أو أكثر) من الطرق »> 
لذي يحمل نفس الاسم » ولكن لها بارامترات مختلفة » وشفره مختلفة. 


دعنا نقول »> على سبيل المثال » أن لدينا والتي بمكن تطبيقها صفحة من النصوص 
لمطبوعة » ونحن نريد من المستخدم أن تكون قادرة على طباعة صفحة واحدة » أو كل 
لصفحات. نحن سيخلق الرئيسية روتين ثانوي فقط أن تطبع كل الصفحات »> ومثقلا 
لنسخة التي تطبع فقط الصفحة التي يحددها ٣إع٥مطbصenumميمم.‏ إنها سوف تبحث في هذا 
لشكل. 


لرئيسية روتين انو ى2 


Sub Print () 
"Print all pages. 


End Sub 


فان مثقلا روتىن ثانوي.. 


Sub Print (ByVal PageNumber As Integer) 
"Print only the page specified in PageNumber 


End Sub 


الآن عندما يحين وقت المطبوعة » ونتحقق لذا كان المستخدم مختارة الصفحة ١‏ » على 
سبيل المثال » ثم ندعو 1) خ”صذع٥۶)‏ لطباعته »> أو إذا م يحدد المستخدم صفحة مطبوعة 
> وحن ندعو 1( )Print‏ مع آي بارامترات وجميع صفحات مطبوعة. 


كما ممكنك أن ترى على الأرجح » هو إثقال أساليب عظيم طريقة لإيجاد كود أكثر 
مرونة. 


)( ۳۸( 


ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
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ا » 2 
ي ل 1 1 1 ي 
| لفصا ( | مں 
ي 
ي ي 
ت 2 ۰*4 4 
1 الطبقات 1 
ي 
ي ي 
ي 
ا ما هوي Class"‏ "؟ 
ي ي 
و الطبقة هو أفضل وصف بأنه مخطط للجسم الذي سيتم إنشاءه إثناء التنفيذ. فهو 
ا يحدد الممتلكات والطرق التي بمكن أن يستخدمها الجسم. 
ga " Instantiation"‏ ننا عنتدفما خلق حالة من درجة في الذاكرة. 
وحن في تحديد الطيقة عذئaة8‏ ua1ئةا‏ مثل هذا ت 
ز ي 
ي ي 
Class ClassName‏ 
ي 
End Class‏ ¢ 
ي 
ي ي 
مدونة لدينا ونحن في غنى عن اlطıقة‏ — ڊjùjq End Class" „, " Class ClassName"‏ " 
وه (يستعاض ع"صة١٣sئc1asع‏ مع اسا وصفيا من اختيارك). ن 
ي ي 
دعنا نحاول التفكير في سيارة بوصفها الطبقة. 
ي ي 
ي ي 
g | Class Car‏ 
ي ي 
g End Class‏ 
ي ي 
وسنعمل على تهيئة بعض المتغيرات داخل هذه الطبقة الجحديدة لتخزين اسم اللون 
ف و الك ولة من 1 لسيا رة ت 
ي ي 
ي ي 
ي 
Class Car‏ 
Public Name As String = "Toyota" ٍ‏ م 
٤ Public Colour As Color = Color. Green ٤‏ 
ي Public IsCarStarted As Boolean = False‏ ة 
g End Class ٤‏ 
ي ي 
ألان بمكننا أن نخلق بعض الأساليب لبدء وإيقاف السيارة > التي حددت قيمة 
scarstartedة‏ إل صحيحا أو غير صحيح. 
ي 
ي ي 
ي 
ي 
ي 
ق 
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Class Car 
Public Name As String = "Toyota" 
Public Colour As Color = Color. Green 
Public IsCarSstarted As Boolean = False 


Public Sub StartCar () 
Me. IsCarStarted = True 
End Sub 


Public Sub StopCar () 
Me. IsCarStarted = False 
End Sub 
End Class 


لاستخدام هذا كائن جديد في المدونة أعمالنا > ونحن ٥خtiaخtanغخnsة‏ عليه » ثم تحدد 
ممتلكاتها والبدء فيه. 


Dim myCar As New Car 

myCar. Name = "Toyota Conquest " 
myCar. Colour = Color.White 
myCar. StartCar () 

myCar. StopCar () 


الطبقة البناءون 
الطبقات كما بنينا في أساليب يسمى "كئ٣إهغخucءإخغCeons‏ " التي تنفذ على خلق من 


الطبقة. وفي 1ئ82 ۷1sua1‏ التي نستخدمها الفرعي #صN()‏ لتحديد البناء. 


Class Car 
Sub New() 


End Sub 
End Class 


فرعية جديدة يمكن ايضا أن تكون محملة بأكثر من طاقتها » مما يتيح لك جعل 
البناء أ سهل بكثير » على سبيل المثال : 4 أضفنا البناء مع المعايير التي ستحجدد 
المعلومات عن السيارة بالنسبة لنا.ء 


) ٤١ ( 
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Class Car 
Public Name As String 


Public Colour As Color 
Public IsCarSstarted As Boolean = False 


Sub New (ByVal Name As String, ByVal Colour As Color) 


Me. Name = Name 
Me.Colour = Colour 
End Sub 


Public Sub StartCar () 
Me. IsCarStarted = True 
End Sub 


Public Sub StopCar () 
Me. IsCarStarted = False 
End Sub 
End Class 


الآن ليس لدينا إلى المحددة يدويا خواص السيارة وجوه »> ونحن محرد إضافتها كما في 
قعالم اليجناء. 


ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
Dim myCar As New Car ("Toyota Conquest", Color.White)‏ ع 
myCar. StartCar ()‏ ٍ 

¥ | myCar. StopCar () 
ت‎ 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 


وبمكن ايضا أن ترث الطبقات من الطبقات الأخرى » وهي مفيدة للغاية في كثير من 
الظروف. 


دعونا نقول إننا نريد لتخزين معلومات عن الدراجات النارية الآن. انه سيكون في 
حاجة لتخزين المعلومات على النحو نفسه هل السيارة وأيضا مبلغ عجلات الدراجة 

ن 
ونحن أول خلق طبقة تسمى دراجة نارية » وراثة من السيارة وتضيف الطبقة متغير 
لمبلغ من العجلات. 


Class MotorBike 
Inherits Car 


Public Wheels As Integer 
End Class 


) ٤١ ( 
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غ علينا اأانشاء لجنة جديدة البناء » مع أضافيا بارامتر للعجلات. 


Class MotorBike 
Inherits Car 
Public Wheels As Integer 
Sub New (ByVal Name As String, ByVal Colour As Color, ByVal Wheels As 


Integer) 
End Sub 
End Class 


وأخبرا » نطالب الأصلي للسيارة من الدرجة البناء بكتابة س٥"‏ .aseطmy‏ () مع 
مجموعة المعالمي وجهة نظرنا الجحديدة المتغيرة لقيمة العجلات. هasةطرM‏ يتيح لك الوصول 
إلى اساليب وممتلكاتهم مباشرة من الدرجة بان ما تتمتعون به من الدرجة يرث > 
وهو في هذه الحالة أمر السيارة الطبقة. 


Class MotorBike 

Inherits Car 

Public Wheels As Integer 

Sub New (ByVal Name As String, ByVal Colour As Color, ByVal Wheels As 
Integer) 


MyBase. New (Name, Colour) 
Me. Wheels = Wheels 


End Sub 
End Class 
وكما ترون » عندما كنت وراثة من رتبة أخرى > انك نسخة جميع الطرق والأملاك‎ 
منهةه.‎ 
ا ا ا‎ 
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۴ فة فى الفجرال بسك دوت تت د٠ ٠١‏ واسطة انترو قوش ترجمة + محمد على بوق 
الفصل التاسع 


Properties صأilصۈ>è|‎ 


ما aaٴa Properties"‏ "؟ 


الخصائنص هي أساسا نفس المتغبرات ألا انه يمكننا أن تعديل كود يحدث عندما حصلنا 
على قبع 0 مجموعة منهم. أنها بمكن أن تكون مفيدة جدا في حفنة من الظروف. 
باستخدام الخصائص 

لو كان لدينا متغير دعا ٣إthouخenمrعcur‏ .» الي تخزن ساعة الراهنة > وإننا وردا 
على سؤال حول هذا المتغير بعد ساعة ولقد خلقنا ومن ثم فانه لن يكون من حق يم 
لعلكء 


وفي حالات مثل هذه الخصائص يمكن أن تكون مفيدة جدا. 


ولندع إ ي جاد اخۈخصûilص‏ لcurrenthoUuFJ‏ 


Property CurrentHour () As Integer 
Get 


End Get 


Set (ByVal value As Integer) 


End Set 
End Property 


إننا لن نحتاج إلى مجموعة قيمة من إouطخمعماإعuه‏ .» حتى يمكننا أن نجعل الخاصية 
فر اءة فط ة وذلك ماضافةه لكر اة قط وار اللة دة طرزحةة 


ReadOnly Property CurrentHour () As Integer 
Get 


End Get 
End Property 


)( ٤٣ ( 
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الآن لدينا جميعا أن نفعله هو أن احصل على ساعة الجالية والعودة إليها. 


ReadOnly Property CurrentHour () As Integer 
Get 


'Create a variable to store the hour. 
Dim hour As Integer 
'Set hour to the current hour. 


hour = Today. Hour 
"Return the value. 
Return hour 
End Get 
End Property 


وألان أصبحت لدينا متغير أن يمثل السليم الجالية ساعة. 


دعنا نحاول انه مع شيء آخر : ربما كان لدينا نافذة مع أنها قائمة على ونريد 
للمستخدم لتكون قادرة على إخفاء أو إظهار القائمة. 


أولا نحن إنشاء منطقي الممتلكات دعا شينثا كهذا عا1اطذئذاناصعص » ومتغير لتخزين 
أكثر غا هو متطقي القيمة الحقيقية مجموعة لأن القائمة هي مرئية بشكل افتراضي. 


Dim isMenuVisible As Boolean = True 
Property MenuVisible () As Boolean 
Get 


End Get 


Set (ByVal value As Boolean) 


End Set 
End Property 


أول مدونة لأضفنا أن أحصل على العودة م1طذئذاuصمعصىة.‏ الثانية أضفنا مدونة 
لمجموعة قيمة الشيكات التي مرت عليه »> وتبين القائمة أو الحخلود ومجموعات قيمة 
eا1smenuvisib‏ تبعا لذلك. 


ي 
ي 
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Dim isMenuVisible As Boolean = True 
Property MenuVisible () As Boolean 
Get 
Return isMenuVisible 
End Get 
Set (ByVal value As Boolean) 
Tf value = True Then 
'Show the menu. 
'Set the value of isMenuVisible 
isMenuVisible = True 
Else 
'Hide the menu. 
'Set the value of isMenuVisible 
isMenuVisible = False 
End If 
End Set 
End Property 


) ٤ ( 
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الفصل العاشر 
المصفوفات 


ما هى "”'lاkصفgفپت"‏ Arrays؟‏ 


جميع لغات البرمجة لها تنفيذ بعض الصقفوف. 

طائفة هي في الأساس قائمة من البنود. واضح من استخدام الصفوف عندما يكون لديك 
لتخزين الأشياء اثنين أو أكثر من نفس النوع. فعلى سبيل المثال لو كان لديك 
واحد لتخزين الاف شريطا القيم » فإنه سيكون بمثابة كابوس لإنشاء لجنة جديدة 
للمتغير كل بت من البيانات! 


Dim stringValuel As String 
Dim stringValue2 As String 


Dim stringValue3 As String 
"Imagine typing this 1000 times! 


لهذه الحالات نقوم بإنشاء طائفة - قائمة الأشياء المخزنة تحت اسم واحد » ويمكن 


الوضول الها مع كل مؤشرة , . 
في Bas‏ ۷1sua1ا‏ صفوف دائما أن نبداأ من الصفر ٠١(‏ بنود في طائفة = ٠١‏ إلى 4). 
فنحن نصنع طائفة مثل هذا.. 


Dim array1l (UpperBound) As dataType 


Dim array1 As dataType (UpperBound) 


أو بمكننا أن يسند البنود إلى طائفة الحق في بداية مثل هذا 


Dim arrayl() As dataType = New dataType() {objectl, object2, ob ject3)} 


Dim array1 As dataType () = New dataType() {objectl, object2, object3)} 


0 ا د ر ر( ا 
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محصور في أعلى هو مؤشر آخر بند في مصفوفة » فلنقل نقوم بإنشاء طائفة مع عشرة‎ 
عناصر » محصور في أعلى ستکون تسعة لأننا د اثئما إن فنك ا هن الصقر. محصور ي اشلى‎ 
كما هو اختياري » ويمكننا تغيير طائفة وفي وقت لاحق في المدونة »> إذا لزم الآمر.‎ 
أنا الآن في المشي لكم من خلال أساسيات الصفوف.‎ 


ولإيجاد مجموعة جديدة » ويسميها كعuا1اةاوصذعغء.‏ سنكون تخزين خمسة قيود في أنها » 
لذلك >ۍىjù‏ جnوذعة upperbounds‏ |إd‏ “<. 


Dim stringValues (4) As String 
الآن سنقوم إسناد القيم اب كل :حك في مصفوفة.‎ 


stringvalues (0) = "String Value 
stringvalues (1) "String Value 
stringvalues (2) "String Value 


stringvalues (3) "String Value 
stringvalues (4) = "String Value 


وحن تقول .الا فكدون اضافة شلك اخر ال طانفة ي اه ت طائفة. هذا أ 

ن نقو ن يیریيدون ! ر ر ! و تغيير حجم مر 
سهل إلى حد ما في .Visua1 Basic‏ ون نستخدم الكلمات الرئيسية "1ك۴٥ع‏ لتغيير حجم 
مجموعة من مثل هذا 


ReDim stringValues (5) 


الآن لدينا مجموعة متنوعة بمكن أن تعقد ستة بنود ولكن المشكلة مع ”ذكإععء هو أن 
ككل هو خلق طائفة جديدة » بحيث أنها لا تحتوي على أي من القيم في مصفوفة 
السايقة: 

لا مشكلة. بمكننا أن نستخدم الكلمات الرئيسية في المحافظة جنبا إلى جنب مع "1كه٣‏ 
> التي فعلا يخلق مجموعة جديدة وثم نسخ بنود من النظام القديم إلى الجديد طائفة 
طائفة. 


ReDim Preserve stringValues (5) 


إذا كنت تفعل ولكن تغيير حجم طائفة مع "ذكعء الحفاظ على صغر حجمها »> ثم أي من 
البنود التي لا تندرج في سيتم .chopped‏ 


ملاحظه : "۴1٥٠ع‏ اممحافظة يمكن أن تكون مروعه فقدان الأداء هند الغمل مع صفقوف 
كبيرة » كما هو الجامع طائقفقة نسخها إلى مجموعة جديدة في كل مرة لكم استخدامها.ء 
حيثما أمكن > في محاولة لعدم استخدام صذكعع المجحافظة. 
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ف أي حال ٠>‏ ¥ إل الوزاء متلا عكنتا الآن ن يضاف بند جديد إلى طائفة 


stringvalues (5) = "String Value 5" 


سأقوم الآن الخوض في بعض الوظائف المفيدة التي هي في صلب طائفقة وجوه. 
بعض مفيدة المدمج فى طائفة وظائف 
Array. copy‏ 


نسخ مجموعة من العنتناصر من مجموعة متنوعة بدءا من العنصر الأول والمعاجين منهم 


طائفقة إل أ خرى ابتداء من لول عنصر . 
Array.Copy (sourceArray, sourcelndex, destinationArray,‏ 


destinationlIndex, length) 


نسخ مجموعة من العنتناصر بدءا من طائفة محددة المصدر في مؤشر والمعاجين منهم طائفة 
إلى أخرى ابتداء من الوجهة المحددة في الرقم القياسي. 


Array.CopyTo 


Array.CopyTo (array, index) 


ا 
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ت 
ت 
ت 
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ا 
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TE‏ عناصر الحالية ذات بعد واحد إلى طائفة محددة ذات بعد واحد ابتداء من 
ت ر 
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طائفة على طائفة مؤشر الوجهة الحددة. 


Array. IndexOf (array, value) As Integer 


عند البحث عن وجوه والممحدد ليعيد بذلك الرقم القياسي من وقوع الأولى ضمن كامل 
الأبعاد طائفة واحدة. وإذا كان الجسم الممحدد لم يتم العثور بعد ذلك indexof‏ 
عائد ات بقيمة -ا. 


Array. IndexOf (array, value, startIndex, count) As Integer 


عند البحث عن وجوه والمحدد ليعيد بذلك الرقم القياسي من وقوع الأولى ضمن مجموعة 
من العناصر في مصفوفة البعد الواحد التي تبدأً إعمالها في مؤشر محدد وتتضمن عددا 
محددا من العناصر. وإذا كان الجسم المحدد لي يتم العتثور بعد ذلك ۴ه×جعمdQصة‏ عائدات 
بقيمة -ا. 
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Array. lastindexof 


Array.LastIndexOf (array, value) As Integer 


عند البحث عن وجوه والمحدد ليعيد بذلك الرقم القياسي من وقوع الماضي ضمن كامل 
الأبعاد طائفة واحدة. 


Array.LastIndexOf (array, value, startIndex) As Integer 


عند البحث عن وجوه والممحدد ليعيد بذلك الرقم القياسي من وقوع الماضي ضمن تجموعة 
من العنتاصر في مصفوفة البعد الواحد الذي بمتد من العنصر الأول إلى الرقم 
القياسي المجدد. 


Array.LastIndexOf (array, value, startIndex, count) As Integer 


عند البحث عن وجوه والممحدد ليعيد بذلك الرقم القياسي من وقوع الماضي ضمن مجموعة 
من العناصر في مصفوفة الجعد الواخد الي تحتوي على عدد محدد من العناصر 


Array . reverse 


Array. Reverse (array) 


الانتكاسات تسلسل العناصر في بأسره بعد واحد طائفة. 


Array. Reverse (array, index, length) 


عكس سلسلة من العناصر في مجموعة من العتاصر في مصفوفة أحاديه الينعك. 


Array.Sort (array) 


أنواع العناصر في كامل الأبعاد طائفة واحدة. 
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الفصل الحادي عشر 
الأحداث 


ما هى " الاحداث"؟ 


الأحداث يمكن أن يكون أفضل وصف بأنه رد فعل على ما حدث للتو. 

تصوروا أننا قد الهواتف بدون قارع الأجراس » وكانت لدينا باستمرار لالتقاط 
جهاز الاستقبال والتأكد من أن احدهم يتحدث عن الجانب الآخر. رنين الهاتف هو حدث 
أن يخطر لنا أن ثمة داعيا. 
ممكننا أن تطبق على وجه الدقة المنطق نفسه على الأحداث في البريجة. 

لو أننا نبذل البرنامج الذي يحتاج إلى التحقق من المدخلان لوحة المفاتيح » على 
سبيل المثال » ونحن نتعرض لقحص حالة مفاتيح على لوحة المفاتيح »> ثم برنامجنا 
ستتناول الكثير من معا السلطة ٠‏ واتر بط ف أسفل كل شيء ء ولكن إذ١‏ كان 
برنامجنا تكمن ناءمه وانتظر إشارة يحكى أن رئيسي قد يضغط ثم انها سوف تستعمل 
معالج السلطة على جميع! 


استخدام الأحداث 


حتى الآن لديكم علم السلطة من الطبقات » وكيف بمكنك أن تصنع بنفسك الطبقات » 
مع أساليب وممتلكاتهم. ونحن الآن في تعلم كيفية استخدام الأحداث في الطبقات. 


عندما ديك البصرية الأساسية بالظهور « انقر فرق New Project - File‏ » اختر 
"Windows"‏ من قائمة » والصحافة عه. 

ننا ننطلق من شكل أساسي مع وجوه »> في تصميم واسطة. 

على اليسار لدينا صندوق ألعده ؛ هذا يحتوي على جميع الأشياء بمكنك استخدامها في 
التطبيقات الخاصة بك. تفتح صندوق الأدوات من خلال عقد الماوس فوق زر »> وتحد 
×oطtext‏ ف القائمة. انقر نقرأً مزدوجا ×ج0ظخ×جهخ .» واحدة ×oطغ×هtغ‏ ستظهر على 
النموذج الخاص بك. 

الآن حق انقر على النموذج الخاص بك »> واختر عرض المدونة » أو الصحافة ۴7. 


ستری إعلان ل۳1٣٥۴.‏ 


Public Class Form1l 


End Class 


دعونا نأخذ لحظة لتذهب من خلال هذا الإعلان. 
"ieا1اPub"‏ يقول لنا أن نتمكن من الوصول إلى هذه الدرجة من إي مكان > و"1"إدf"‏ 


يخبرنا أن هذه الطبقة هي التي تحمل عنوان "۴0٣۳01"‏ . 


طيب »> والآن نحن بصدد استخدام واحد من ۳1٣ه٤‏ للأحداث » وحمل الجحدث. 
عادل المدونة أعلاه المجال » سترون اثنين إسقاط القوائم »> إن تفتح واحدة على 
اليسار وانقر على )()sځEven‏ m1ص٣د۴)‏ . ثم تفتح القائمة المنسدله على اليمين. 


C8 ( 
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نت سيلاحظ ق هناك تروة من الإحداث في متناول لناا! 


دعنا ننظر في بعض هذه الإحداث بسرعة. 

= انقر هذه لإحد اث عندما حرائق (نعم انت جزور فغفليه) ينقر قمستخدم شكل مع 
الماوس. 
- إغلاق هذا الجدث حرائق عندما ينقر مستخدم الوثيق زر على النافذة » أو هي 
نافذة مغلقة في المدونة. بمكنك إيقاف شكل من أقفال هنا » وإذا كنت بحاجة إلى » 
بالإطلاع على إلغاء قيمة منطقي في ك9٣aةخ٣مvعماعمcanc‏ .» الذي صدر كما هو معيار من 
هذا الحدث. 


عاد الان إلى المسالة المطروحة : التعليق على ۴۳1 للتحميل الجحدث. اختر التحميل 
من إسقاط قائمة على الحق » وإنكم سوف نلاحظ أن بعض هذه المدونة المضافة. 


Private Sub Forml1 Load (ByVal sender As Object, ByVal e As System.EventArgs) 
Handles Me.Load 


End Sub 


هذا هو التخطيط للحمل الجحدث. أشعار المقابض الكلمات الرنيسية » والتي تأخذ في 
102d‏ .عص بوصفها بارامتر. هذا يربط 1٥02a‏ _1”٣rه۴‏ الأجراء إلى ۳”1٣إه۴‏ للتحميل الحدث 
> ودون أن يكون شينئا عاديا ولكن كل يوم طريقة. 


. (" End Sub" ,„, "Private Sub" jı) ثûثدینا الآن تضاف هذه المدونة داخل‎ 


Me. TextBoxl. Text = "Hello Events!" 


ما ينبغي أن يحدث الآن » هو عندما شكل الأمال » نص 1×دطغخ»جهخ (الذي هرو ×textbo0خ‏ 
أضفنا في وقت سابق) وينبغي مجموعة "مرحبا الأحداث!". 

الصحافة ۴5 لبناء وإدارة المشروع لهذا الاختبار )Îو‏ lانتقر Debug> Start ale‏ 
(Debugging‏ . 


ولندع تضاف ”ص٥‏ الجحدث ل0×1طغجهغ الآن. تفتح إسقاط القائمة في أعلى اليسار »> 
واختر 1×طغ×*جهغ .» وبعد ذلك تفتح القائمة على الحق واختر dمhan3عtغخxجهخ.‏ هذا الجحدث 


حرائق عندما مستخدم يعدل النص. 


Private Sub TextBox1 TextChanged (ByVal sender As Object, ByVal e As 


System. EventArgs) Handles TextBoxl. TextChanged 
End Sub 


يضاف ما يلي المدونة داخل الجZzحدث‏ إleڻjùl .textchangedJ‏ 


Me. Text = Me.TextBoxl .Text 
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هل هذا هو ما يحدد أشكال "النص" إلى قيمة الممتلكات من 1×هطظخ×هغ نص الممتلكات. 
الصحافة £5 لاختبار هذا المشروع » وأشعار ماذا يحدث عندما تكتبها النص إلى 
textbox1l‏ 


أنت ريما التفكير في كل الاحتمالات المتاحة لك باستخدام هذه الإحداث. هناك فعلا ما 
يكقي ‏ لاجد اث تفعل أ شي ء تقريبا. يستغرق الأمر بعض الوقت لننظر حولنا ومعرفة 
الإحداث هناك خيارات متوفرة لك. 


وبمكننا أيضا أن تخلق المناسبات الخاصة بنا للفئات التي ننشئها. 


وإذا كنا قد لخلق طبقة أن يقرأ من ملف ونحن في حاجة إلى معرفة عندما انتهى كل 
قراءة .» تم أننا بيمكن أن يخلق حالة منطقتنا. 


Class FileReader 
Sub StartReading 
'read data from the file 


End Sub 
End Class 


أيجاد العرف الجدث داخل الطيقة أن مثل هذا 


Public Event FinishedReading () 


وبعد ذلك رفع الخدت وعندما النتهت القراءة 


RaiseEvent FinishedReading () 


التزامنا الكامل الطبقة سوف تبدو هذه 


Class FileReader 
Public Event FinishedReading () 


Sub StartReading 
'read data from the file 
'raise the FinishedReading event. 
RaiseEvent FinishedReading () 
End Sub 
End Class 


ا ا و س ا 
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أشعار ونحن نستخدم خ”٥رع٥عئتجع‏ لرفع حدثا داخل الطبقة الجالية. 


خلق طىقة والتى تعاج الأحداث 
الآن فأننا سنضع الطبقة التي تعالج الطبقة السابقة للأحداث. 


خلق طبقة خاصة مع المتغير أن جمحازن جديدة ٣إهadمع٥ءهf۴i1‏ » والبناء أن تطلق عليه 
Procedure filereader. startreading‏ . 


Class FileReaderManager 
Private myFileReader As FileReader 


Sub New() 
Me.myFileReader. Start Reading () 
End Sub 
End Class 


الآن فأننا سنضع إجراءات لعا جة £inishedreading‏ الجدث. 


Sub FinishedReading () 
'notify the user that we have 
'read the file 

End Sub 


التزامنا الكامل الطبقة الآن يشبه هذا 


Class FileReaderManager 
Private myFileReader As FileReader 


Sub New() 
Me.myFileReader. Start Reading () 
End Sub 


Sub FinishedReading () 
'notify the user that we have 
'read the file 
End Sub 
End Class 


وحن الآن بحاجة إلى ربط هذا الأجراء لهذا الحدث إن ٣إم٥مadم٥م٣ءم۴11رص‏ يولد. لذلك لدينا 
خبار ار 
ياران 


Addhandler 


ويضيف هذا المعالج للحدث » وذلك باستخدام الأجراء أن نكون قد حددت بالفعل في 
منطقتنا الطبقة. 


) 9۳ ( 
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نستخدمها متثل هذا 


AddHandler Event, EventProcedure 


الحدث هو الجحدث ونحن على التعليق على و٥reإdu٠مcعدإمtpغeven‏ هو الأجراء ونحن على 
التغلجق فلي شلا الخدث 


ذلك إننا سوف أدراجه في منطقتنا دون جديدة مثل هذا 


AddHandler myFileReader.FinishedReading, AddressOf Me.FinishedReading 


حتى التزامنا الكامل الطبقة سوف تبدو هذه 


Class FileReaderManager 
Private myFileReader As FileReader 


Sub New() 
AddHandler myFileReader.FinishedReading, AddressOf Me.FinishedReading 
Me.myFileReader. Start Reading () 

End Sub 


Sub FinishedReading () 
'notify the user that we have 
'read the file 
End Sub 
End Class 


4 


مقايض 
هذا هو اساسا نفس باستخدام rإaddhandı1e‏ ولكن في بعض الأحيان تعتر أ سهل. 
aãllطlع‏ lZ>l|lض filereader las myfilereader withevents‏ 


3 أضفنا المقابض الكلمات الرئيسية والدقيقة الحدث بأننا المناولة ف نهاية 
ا حتفا عتا الأجراء 


Sub FinishedReading () Handles myFileReader. FinishedReading 
'notify the user that we have 


'read the file 
End Sub 


ء 


و اخبرا نحن الطبقة سوف تيدو هذه 
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Class FileReaderManager 
Private WithEvents myFileReader As FileReader 


Sub New() 
Me.myFileReader. Start Reading () 
End Sub 


Sub FinishedReading () Handles myFileReader.FinishedReading 
'notify the user that we have 
'read the file 
End Sub 
End Class 


هذا كل ما! الآن المدونة داخل هذا الأجراء سينفذ عندما ٣إهلdجمهإه1ة۴‏ الطيبقة يثر 
هذا الحدث. 
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ي ي 
فصل لى عسر 
ي ي 
ي ي 
ت مه که ٠‏ 0 ا 
الاستتناء ات : 
ي ي 
ي ي 
ي ي 
۾ 1 
فف هناك استتثناء وجود خطا او سلوك غير متوقعة واجهتها إثناء تنفيذ المدونة. فعلى هه 
و سبيل الخال »> اد ا خاوننا قراءة من اكك التي هى خن موجوة > موقن المصول على 
£11enotfound‏ استثناء. وإذا لم نفعل ذلك باستثناء التعامل على النحو الصحيح 
5 < م طلبنا وسوف تحطم . ا 
TET‏ نظہ لے 3 إا“ ا | | ا 2 ي 
وحن نستخدم منظم محاولة التعامل مع استثناء والصيد جميع استثناءات ممكنة » حتى 
ي نستطيع أن يبقى برنامجنا الحالي دون التحطيم والتهيج للمستخدم. ع 
ي 1 . ي 
۾ كيف نفعل ذلك بlستخدlم Try...Catch...Finally‏ البياlان.‏ ٍ 
ي 
ي ي 
ت Try‏ ت 
ا tryStatements‏ ت 
ت Exit Try‏ ت 
Catch exception As exceptionType When expression‏ 
catchStatements‏ 
Exit Try 8‏ 8 
Catch‏ § 
catchStatements‏ 
Exit Tr‏ 
Finall‏ 
finallyStatements ٍ‏ 
a End Try ٣‏ 
ي 
ي ي 
"exceptiontype În :+«*liiتiwlب'”" .+١راl۸ıتخا " Exit Try"‏ انیا رئ 
YJ‏ هو ياري : P yP‏ هو ياري ت 
"When expression" ‡‏ هو اختياري » ويسمح الصيد كتلة تعدم إلا عندما " 
۽ "expression‏ لیقیم صحیحا. م 
# كتل متعددة الصيد المسموح » ودرست كل واحدة من اجل تحديد ما إذا كان يمكن 
ق معالجة النوع من الاستثناء. حتى إذا كنا محرد استخدام الصيد دون أي نوع من 5 
الاستثناء المذكورة »> ثم أنها سوف الصيد جميع الاستثناء ات. م 
واخيرا » وهو اختياري > ودائثما اعدم في نهاية الكود التنفقيذ.ء 5 
ي ي 
ا النظر في هذه العينات. 
ي 
عبنه ١‏ 
ي 
Try‏ د 
'Read from a file.‏ ي 
Catch‏ 
'If reading from the file failed‏ 
'then just exit. ٍ‏ 
g End Try‏ 
ي ي 
ي ي 
ا ا 
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علدنه ؟ : 


'Store the amount of times we have tried 

'to read from a file. 

Dim readAttempts As Integer = 0 

tryAgain: 

Try 
'Read from a file. 

Catch ex As I10.FileNotFoundExcept ion When readAttempts = 0 
'The file was not on the harddrive, increment readAttempts.. 
readAttempts = readAttempts + 1 
'Try again from the beginning. 

GoTo tryAgain 

Catch ex As IO.FileNotFoundExcept ion When readAttempts = 1 
'We have already tried once before to read the file, 
'Show a dialog saying that we have already tried 
'once and the file probably doesn't exist. 

'Code execution will now move on to the finally block. 

Finally 
'If the file was opened, then process it, otherwise 
'just exit. 

End Try 
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القضل .اة عر 
ÎشكJl‏ ويıiدFormsjg Windows‏ 


في قلب من microsoft."‏ الإطار هي اأ شكال ويندوز > الذي هو في جوهره بمثابة 
نافذة مثل النافذة التي محرر الاستخدامات. شكلا من أشكال الاعتراض هو في الواقع 
الطبقة » وصمم في خعn microsoft.‏ الواردة في هذا الإطار. 


بمكن أن يكون شكلا من أشكال عديدة حسب الضوابط على النحو الذي تريد » وأنها 
يمكن إن يكون لها مدونة خاصة بها » والتي لكم 


gولiدEع‏ ةتح Visual Basic‏ . 
انقر «File New Project‏ اختر ويندوز والصحافة ه. 
انك ستبدا في اشكال مصمم :ء وسيكون هناك فراع شكل إمامكمء 


ننظر في بعض خواص هذا الشكل (الصحافة £4 على رأي أملاك نافذة » أو انقر Wه٥i/ا‏ 
(><Properties Window‏ . 


تبدأ باختيار النص »> وتغييرها. سترون أن أشكال تعليق النص سيتغير. 

القادم يتيح له الانتقال إلى ٣إoامckcحمط‏ الممتلكات. انقر على زر الحق (..) واختر 
اللون الجديد. اشكال سيتغير لون الخلفية. 

محاولة تغيير التعتيم من شكل إلى *0 ۸/ <« Debug> start Debugging jail‏ 
والتنقيح إشعار كيف شكل لا يمثل سوى نصف مرئية! 


يمكنك أن تفعل أشياء كثيرة مختلفة مع شكل الممتلكات » مثل تغيبر خلفية الصورة 
(ackgroundimageط)‏ . وتعل شكل تظهر فوق جميع أشكال أخرى (أعلى) أو تغيير 
أشكال الايقونه (أيقونه). 


أشكال ويمكن ايضا بسهولة أنشنت في المدونة > لأنها ليست سوى الطبقة. 


'Create a new Form instance called testForm. 
Dim testForm As New Form 

'Set its text to "Test". 

testForm. Text = "Test" 

'Set its background colour to Green. 
testForm. BackColor = Color. Green 

"Display the form. 

testForm. Show () 


) °9۸) 
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مقدمة في الفيجوال بيسك دوت نت ۲٠٠١‏ بواسطة اندرو فوس ترجمة : محمد على يوسف 
الفصل الرابع عشر 
system. ob ject‏ 


ما هى "الأشاء"؟ 


ي . .Net F۴ramework‏ كل فئثة واحدة يرث من وجوه ؛ حتى الطبقات التي تصنع نفسك. 
ومن النهائي في قاعدةö‏ llطãiıقة. .Net Framework‏ 


تحوبل الأجسام 


آخر قليلا من المعلومات المفيدة هو أن نستطيع تحويل الطبقة إلى أي فئة على طول 
طريقها من الميراث » ويعود إلى حالته الاصليه الطبقة. 


كفل خص اتطةة 


Class ClassA 
Public SomeNumberValue As Integer 
End Class 


خلق حالة من أنها 


Dim testClass As New ClassA 


تحويلها إلى جسم 


Dim objectClass As Object = CType (testClass, Object) 


ا ا اوو 


Dim testClass As ClassA = CType (objectClass, ClassA) 


وجوه اسالد 
لأن جميع الأجسام وراثة من وجوه » كل طريقة في وجوه الطبقة المتاحة لهم 
Object .equals‏ 


تستخدم للمقارنة بين اثنين من الأجسام . 


ا د و س ا 
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مقدمة في الفيجوال بيسك دوت نت ۲٠٠٠١‏ بواسطة اندرو فوس ترجمة : محمد على يوسف 
Object. finalize‏ 

تستخدم لتنظيف الجسم الموارد قبل وجود جسم دمرت. 

Object .gethashcode 

يستخدم لتوليد الرقم المميز لهذا الجسم » بحيث يمكن استخدامه في بعثرة الجدول. 
Object.tostring‏ 

تستخدم لخلق نص الخيط إن يصف الجسم . 

الطاغية وجوه أساليب 

وجوه أساليب يمكن بسهولة تخطيه لإيجاد الوظيفة الخاصة بنا. 


ولخلق طبقة جديدة مع بعض المتغيرات. 


Private Class TestClass 
Public Datal As String 
Public Data2 As String 

End Class 


الآن دعونا تعلو وجوه طريقة "٤٩ua21s"‏ (بمكننا نوع "es٥ل0verr1d"‏ القضاءيه 
والصحافة لإظهار نافذة أكمال تلقاني » وثم اختر "sئu21٩٤")‏ . 


Private Class TestClass 
Public Datal As String 
Public Data2 As String 
Public Overrides Function Equals (ByVal obj As Object) As Boolean 
Return MyBase. Equals (obj) 
End Function 
End Class 


الآن تحن الطاغية "1sمuي۳"‏ طريقة. 


إزالة عودة ((jطMyBase.Equals)0)‏ (الخط) التي تقول إنها لاستخدام الافتراضي 
1sاequa.‏ b[jectه)‏ .» وتدرج بنفسك قانون العرف » على سبيل المثال 


RAG LRG RAGDOLL GGG DG 
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'Convert obj to TestClass. 
Dim otherObject As TestClass = CType (obj, TestClass) 
'Test if I'm equal to the other object. 
If (otherObject.Datal = Me.Datal) Then 
'My Datal is equal to the objects Datal. 
If (otherObject.Data2 = Me.Data2) Then 
'My Data2 is equal to the objects Data2. 
'Return True, because objects are equal. 
Return True 
End If 
End If 
'If we got here, then objects aren't equal. 
Return False 


ولتجاوز "3”ة٣عغخsهغ"‏ طريقة الآن بتكرار الخطوات في المثال السابق. سنعود 
"data1va1ue : data value"‏ كما وصف۔. 


Private Class TestClass 
Public Datal As String 
Public Data2 As String 
Public Overrides Function ToString () As String 
'Return a more descriptive string value. 
Return Me.Datal & " : " & Me.Data2 
End Function 
End Class 


وكما ترون » ومن السهل إلى حد ما تجاوز أساليب أعلن في وجوه الطبقة »› 
و استخدامها لصالجنا. 


) 1 ( 
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الفصل الخامس عشر 


مهمو عات 


في فصل سابق علمنا عن الصفوف. صفوف تخزين البيانات ولها العديد من الوظائف 


الشي*ء الوخحيدكد الذي يغيب فن صفقوف هو انك لا تستطيع بسهولة إضافة بنود إلى 
طائفة » ومن دون ريسيزينج » الذي هو حقيقي أ د اء المصرف إذا كان لديك كمية 
كبيرة من الأشياء المخزنة في لهم. 


أنني عندما بدأت أول من عذكئة8 a1مسÜة7¥»‏ وكنت انتظر صفوف الكثير. وكنت انتظر 
الكثير منهم طريقه إلى الواقع »> لأنني قد عرفوا كيف ابدأً إلى استخدام مجموعات على 
النحو الصحيح » ولكن عندما فعلت أنا في النهاية معرفة كيفية استخدام هذه 
الجمال الترميز اصبحت اقل بكثير رتيب. 


فأنا على يقين بأنني يحب أن خلقت هذا العمل البشع واحدة على الأقل ألف مرة.. 


'Need to add an item to myArray () 


'Create a variable to hold the dimension 
'of the new array... 
Dim newArrayDimension As Integer = 0 


'If myArray has items in it then use 

'it's length as the new dimension, otherwise 

‘just use zero 

If Not myArray Is Nothing Then 
newArrayDimension = myArray. Length 

End If 


ReDim Preserve myArray (newArrayDimension) 
'Now add the item at the end. 
myArray (newArrayDimension) = "New Value" 


عندما قمت لنوي قد فعلت هذا 


collection. Add ("New Value") 


لإ ٠‏ آنا السك التتكيف: 


)( 1۲ ( 
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مقدمة في الفيجوال بيسك دوت نت ۲٠٠١‏ بواسطة اندرو فوس ترجمة : محمد على يوسف 
Collections.arraylist‏ 
وهو tكذاإةإعإج‏ هي أساسا مع طائفة أكثر وظيفية. 


ولندع إنشاء لجنة جديدة غخsئ11اإaة٣٣a‏ ونرى ما يمكننا أن نقعله معها.ء 


Dim list As New Collections. ArrayList 


الآن سوف نستخدم لجحلقة واحدة تضاف إليها آلاف من البنود. 


For index As Integer = 0 To 999 
list.Add("This is String " & index.ToString) 
Next index 


طيب » ألان لدينا قائمة تحتوي على ٠٠٠١‏ البنود » واعتبر "هذا هو الخيط "٠‏ إلى 


كيف يمكننا أن كرر خلال هذه القائمة؟ 


For Each item As String In list 
MessageBox. Show (CType (item, String) ) 


Next item 


ت 

ت 

ت 

ت 

ت 

ا 

ت 

ت 

ا 

ت 

ا 

ت 

ت 

ت 

ت 

ا 

ا 

ت 

ت 

ا 

ت 

ا 

ت 

ت 

ت 

ا 

ا 

تقريبا من السهل جدا! أشعار أننا نحتاج إلى استخدام هطرخء للتحول إلى سلسلة »> 
۽ لان البند سيكون من نوع ect‏ jزط0.‏ 
ت 
ت 
ا 
ت 
ت 
ت 
ت 
ا 
ا 
ت 
ا 
ا 
ت 
ا 
ت 
ت 
ت 
ت 
ا 
ا 
ت 
ا 
ا 
ت 
ا 
ت 
ا 
ا 
ت 


ويمكننا ايضا أن تضاف بنود معينة في مؤشر.. 


list. Insert (100, "The 100th String") 


بمكننا بسهولة واضحة قائمة 


list. Clear () 


list. Remove ("The 100th String") 


يبمكننا إزالة الجسم عن طريق تمرير مؤشرها. 


list. RemoveAt (100) 


بمكننا حت إزالة مجموعة من الأشياء. 


ي س د ي س ا ت ي ي 
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list. RemoveRange (100, 10) 


إذا كان هذا لا يكفي حتى نستطيع تحويل القائمة بأكملها إلى طائفة. 


Dim array() As Object = list. ToArray () 


Collections. hashtable 


eاhashtab‏ هي قائمة من البنود التي يمكن استرجاعها عن طريق تمرير رئيسي. 

المرة الأولى التي استخدم م1اطةخطىمط كان عندما كنت أعمل على محاولة في نسخة 
ويندوز اكسبلورر. لقد وجدت انه لا بأس به الأداء الخسارة إلى قراءة الأيقونات عن 
كل 3 لتنا والملف في كل مرة كکانوا اظهروا. 


ثم إنني وجدت من اصل حوالي كع1اطةخطئمط. و أستطيع الآن تخزين الأيقونات وتمرير اسم 
الملف أو اسم الدليل كاداه رئيسية لاسترجاع تلك الايقونه. 


ولندع إنشاء لجنة جديدةö .hashtable‏ 


Dim hashTable As New Hashtable 


الآن أ ضيف الها يعض التتود اللكل. متة من التتوة جب أن يبكون لقا الرتيسية) : 


hashTable. Add("Iconl", Icon1l) 
hashTable. Add ("Icon2", Icon2) 
hashTable.Add("Icon3", Icon3) 
hashTable. Add ("Icon4", Icon4) 
hashTable.Add("Icon5", Icon5) 


الآن لاسترجاع بندا (إشعار ونحن نستخدم همرغ هنا لأن ص٥tغe.1م1طtaطasط‏ العودة جسم 
لا أحد الرموز). 


Dim Iconl1 As Icon = CType (hashTable. Item ("Iconl"), Icon) 


إزالة بندا ه ايضا سهلة. 


س 


hashtable. Remove ("File1l") 
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الفصل السادس عشر 
generics‏ 
محموعات عامة 


في الفقفصل السابق تعلمنا عن مجموعات. سأة الان ف کیق اوی امو عات 
ي عں قوم U‏ لیہیں ر و عمو : 


. "generics" iw Visual Basic.Net ga 


عندما علمت عن مجموعات لكم » انتم ربا لاحظ انه عندما نعقد استرجاع بندا من ممع 
> ومن عاد ما جسم »> ويتعين علينا استخدام هممرخء لتحويلها إلى نوع محدد. هذا هو 
ضخم الأداء الأكل » والطريقة الوحيدة لتصحيح هذا في النسخة السابقة من 

microsoft .net‏ كان بنفسك لخلق نوع من جمع بيانات عن كل نوع لكم إن يقصد إلى 
متجر. 


أن كان زائدا عن الجاجة. أنا أبدأً نود إعادة اختراع العجلة. 
كيف كعذإه٥صعو‏ لحل هذه؟ أنا سوف تظهر لك. 


إيجاد الدرجة التي تعتزمون على تخزينها في قائمة. 


Class MylItem 
Public Name As String 
Public Text1 As String 


Public Text2 As String 
End Class 


الآن تهيئة عامة قائمة لتخزين أعمالنا الطيقة. 


Dim mylItemList As New Generic.List (Of Myltem) 


إنشاء لجنة جديدة للالمثال بندا وإضافتها إلى القائمة. 


Dim mylIteml1 As New MylItem 
mylItem. Name = “My Name” 


mylItem. Text1 = “Text 1” 
mylItem. Text2 = “Text 2" 


mylItemList . Add (my item1) 


استرجاع هذا البند. 


Dim mylItem1 As MylIltem = mylIltemList. Item (0) 
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لا أكثر ctype‏ تباطۇ أداء الشفرة وجعل لكم أكثر من نوع. 


تصنيف مجموعات عامة 


مفيد آخر هة عامة المجموعات هو أن يمكنك منهم أي نوع بالطريقة التي تريدها » 
باستخدام العرف مقارن. 


ما تقوم به هو خلق طبقة جديدة. 


Class MyItemListComparer 
End Class 


م أننا ترث )0£f DataType) generic. comparer jn‏ ف أعلى مرتبة. 


Class MyItemListComparer 
Inherits Generic. Comparer (Of MylItem) 


End Class 


Visua1 Basic.Net‏ ينبغي ن يضاف بعد تخطيه مقارنة الوظيفة أضفنا يرث » والذي 
تقوم به قادتنا مقارتة بالدخول: 


Public Overrides Function Compare (ByVal x As MyItem, ByVal y As Myltem) As Integer 
Return String .Compare (x.Name, y.Name) 


End Function 


) ٩1 ( 
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الفصل السابع عشر 


المندوبون 


وهو مندوب هو ساسا وسيلة الربط التي جخازن ذكرى طريقة للمعالجة بحيث انه يمكن 
تنفيذه من مكان آخر في المدونة. 


تنظر لدينا اثنين من الأجسام .« .object2, object1‏ 


Private Class Object1l 


End Class 


Private Class Object2 


End Class 


هدفنا الرئيسي الطبقة .» والذي سنطلق خءع٥زّطه٣مذجمص‏ . يلق النسخة الخاصة من كل 
وچو 


Dim object1 As New Ob ject1 
Dim object2 As New Ob ject2 


الآن في مكان ما على طول الخط » ونحن ندرك أن 1٤ءعزطه‏ مطلوب لاستدعاء وظيفة داخل 
2غecزطه.‏ المثال التالي يبين أن هذا سيكون من المستحيل أن تفعل » لأن لا وسيلة 
نللربط .object1J‏ 


Private Class Object1l 
Public Sub DoStuff (ByVal Caller As String) 
MessageBox. Show ("This procedure was called from " & Caller) 
End Sub 
End Class 


Private Class Object2 
Public Sub CallObject1 () 
MessageBox. Show("I can't do that Dave. ") 


End Sub 
End Class 
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مغ مندويين ولدينا الان وسيلة لردم هذه الهوة. 


في المثال التالي أنني قد خلقت طبقة تسمى 1٤ءعهزطه‏ > التي لديها إجراءات دعا 
dostuff‏ أن تقبل على سلسلة القيمة ودعا المكالمة. عندما ۴۴نا٤sئمك‏ يطلق عليه 
يظهر مربع رسالة يقول الذين أطلقو ا عليه. 


كما أنني قد أوجد طبقة تسمى 2٤٤٠هزطه‏ > مع فرعي جديد أن تقبل بارامتر دعا 
legatetoinvokeاde‏ . ثم تحتج فيه. 


Private Class Object1l 
Public Sub DoStuff (ByVal Caller As String) 
MessageBox. Show("This procedure was called from " & Caller) 
End Sub 
End Class 
Private Class Object2 
Public Delegate Sub DoStuff (ByVal Caller As String) 
Public Sub New (ByVal DelegateToIlnvoke As DoStuff) 
DelegateToInvoke. Invoke ("Ob ject2") 
End Sub 
End Class 


الشفرة التالية بمثل احد 1غء٥هزطه‏ نوع متغير اسه "1غعءم٥زڙطه"‏ . ثم يخلق المندوب 
الذي هو صلة ل۴۴ dostu‏ .1غecزطه‏ طريقة وبمثل احد 2غءه٥زطه‏ نوع المتغير » وفاة 
المندوب بوصفها بارامتر. هذا سيتسبب في رسالة ليتم عرضها في المربع التي نصها 
"This procedure was called from Object2"‏ . 


Dim object1 As New Ob ject1 
Dim DelegateToInvoke As New Object2.DoStuff (AddressOf object1.DoStuff) 


Dim object2 As New Ob ject2 (DelegateToInvoke) 


وهذا جرد مثال بسيط للكيفية التي بمكننا استخدام المندوبين لمساعدتنا على الخروج 
من حالات اللزجة » واستخدام المندوبين هو بالتأكيد لا تقتصر على هذه الجالات. 


E O 
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الفصل الثامن عشر 
المراجع 


وفي بعض الوقت وربما نحتاج إلى أخرى تشمل الطبقة أو جمعيات المكتبات على طلبنا » 
حتى أننا يمكن إن تشمل على وظيفة. 
إشارة هي ساسا مكتبه المدونة التي نحن على صلة مشروعنا »› وكأنها من الدرجة 


المكتبة. وعندما نضيف إشارة » يمكننا عندئذ استخدام أي كود داخل الإشارة إلى 
(والتي تتم العامة) لاحتياجاتنا. 


C- 


مثال للاستخدام إشارة هو إضافة ذمطة٣إموnعمssعمص‏ المرجعية » ولذا فإننا يمكن أن 
تدمج مع رسول أم أس إن ودردشة مفتوحة النوافذ ومستخدمي شبكة الانترنت للحصول 
على مركز من بين اموز اخرى. 


وإذا أضفنا إلى المراجع مشروعنا ثم الجمع سوف نسخة هذه الإشارات لدينا الناتج 
مجلد المقبل لدينا تحميع ملف الجمعية » وسوف نحتاج إلى أن تشمل هذه الإشارات حت 
فندمها يتقذ اليرنامج اله يكن الوضول إليهخ: 


في N٤7.‏ لدينا بالفعل ككل حمولة من الإشارات » التي تسمى في إطار الطبقة المكتبة 
)۴٥1(‏ » ولكن هذه الملفات لن يحصل نسخت إلى الناتج مجلد » لأنها شائعة في جميع آلات 
iتغJa. .NET Framework‏ 


) 7۹ ( 
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الحزء الثاني 


الفصل التاسع عشر 
إنشاء مشروع جديد 


في ەdiكuغS‏ isua1ا‏ ومن السهل جدا إنشاء مشروع جديد. كل ما عليك فعله هو أن 
يفتح باب متابعة > واختر غخecټProj .۴11e>New‏ وثم اختر نوع المشروع وسيتم خلق 


لكم. 
File‏ 
N New Project... Ltrl+hl‏ 
pen Project... Er‏ ا 


88 ie: 
Project types: Templates: E B-0 


pen File... 


lose 


¥isual Studio installed templates 
Windows 


; Ê-Smart Device 23 3 
٣ 1 WB ا‎ ZB B 
1 Forket PC 2003 کا‎ 3 A ا‎ 


Smartphone 2003 Windows lass Library Console Windoms Crystal 

Windows CE 5,0 Application Application Control Library Reports,,, 
` Database 

Starter Kits 

E]. Other Project Types 


Save ۉۈll‎ Ltrl+shift+5 


Device 
Application 


My Templates 


1: 


Hamer wWindowsApplicationd 
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۔ریں 
* 0 ۰4 
المشروع الممتلكات 
لتغيير الخصائص المختلفة للمشروع الخاص بك « Project > <ProjectName> jail‏ 
Properties‏ 
تطببق علامة التدونب 
يتيح لك تغيبر محتلف البيئات التي تستخدم لتطبيق. 


Assembly Name ځiıعgaا|l اسم‎ 


الفعلي اسم الملف ستبنى » وعلى سبيلJ‏ lاJlikl yÎ "windowsapplication1.exe"‏ 
"windowsapplicationl. dll"‏ . 


نوع انفلتÜطJ]ıı Application Type‏ 
نوع من أن تطبيق سيتم تحميع. 


1con الاسقونه‎ 


تحمدع تدوينه4ه bێؤۈTa Compile‏ 


ويتضمن مختلف البيئات التي تتحكم في كيفية تطبيق هو تحميعها > والمجلد حيث سيتم 
إنشاء الجمعية. 


بناء الناتج Build Output Path Jn |١‏ 
المجلد حيث سيتم تحميع الجمعية أنتج ل 


References Taؤڑb‎ 4ııيو.ıقت المراجع‎ 


جميع القوائم الاضافيه مكتبات الدرجة المستخدمة في التطبيق » ويتيح لك شيك 
معطله الإشارات. 


Resources Taؤڑb‎ a4دديونت الموارد‎ 


ويوفر وسيلة لأنك بسهولة تضاف إلى الموارد الي يمكن استخدامها قي طليك »ء عل 


E . 5 


سبيل المثال الصور والنص الخيوط. 
علامة تويب إلÎأعداداتث‏ _طbؤزTa Settings‏ 


يتيح لك تخصيص أعدادات التي يمكن استخدامها في طلبك » والذي أنقذ احصل على 
تطبيق إغلاق (افتراضي) 


) ۷ ( 
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مقدمة في الفيجوال بيسك دوت نت ۲٠٠١‏ بواسطة اندرو فوس ترجمة : محمد على يوسف 


الفصل الحادي والعشرون 


إضافة بنود جديدة 


لإضافة بند جديد إلى طلبك من السهل جدا. انتقر .Project >Add New 1Item‏ و إعطاء 
هذا البند الاسم واختر نوع البند تريد إضافتها إلى المشروع الخاص بك. 

Prajeck 

3 Add Windows Form... 

3 Add User antral... 

ê Add Zamponent,., 

EÛ Add Module... 

Add Class...‏ و 


Add New Item. LErl+Shift+A 


Hil Add Existing Item... Ctrl+D 


Exclude Frarm Project 


Show All Files‏ ف 
Add New Item - WindowsApplication1 2 : E‏ 


E 
Templates: BB BR: 


ا a‏ ا e‏ | ك 
1 کک e‏ 
Windows Form Dialog Explorer Form MDI Parent About Box Lagin Form 3plash Screen lass‏ 
Farm‏ 
ا 9 7 
U‏ 4 لڍ E‏ لڍ 1 
: ف ك فك ك 
Module Interfare Zaomponent LOM Class DataSet 5L Database Report Lrystal Report‏ 
Lla55‏ 
i # & 2‏ 
LIser Zontrol Inherited Form Inherited User Lustorm Web Zustom Resources File Settings File Lode File‏ 
Lankral Lontral Lankral =|‏ 
û blank Wirndarys Fortra‏ | 
Name: | Farmêa,wb‏ 
| ا 
دسر ال )بے 
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۴ مقدمة في الفيجوال بيسك دوت نت ۲٠٠١‏ بواسطة اندرو فوس ترجمة + مخمة على فة 
الفصل الثاني والعشرون 


إضافة الإشارات 


وربا نحتاج إلى إضافة أ خرى جمعت المدونة على طلبنا في بعض الوقت. يمكننا أن تنفعل 
ذلك بالنقر على >Add Reference‏ ectعزداP.»‏ واختيار الجمعية إضافتها. 


E Add Windows Forrn... 

Add User Zontral...‏ ق 

8 Add Zaormponent... 

Î Add Module... 

Add Zlass...‏ ا 

E] Add New Iker... ctrl+shiFE+ê, 

| AAd Existing Iter... Ctrl+D 
Exelude Fram Projert 

File‏ ال سداد ل 


Add Reference... 


Add web Reference... 


WirndowsApplication1 Properties... 


Add Reference 


NET | com | Projects | E | Recent | 


ûrresaibility 

adodb N 1.1.4322 CH Program TT 
AsplEEMMLE:E AU. YAM SUFET LN WINOOWSTMicrOSDÊ, 
Lrystalbecisions, Crystal... 10,2,2360... YA.D.SOFEF CA Program Filson. 
LrystalDerisions. Report... 10.2.3860... Y2A.D.SOFA2Fr CN Program Files Zoran: 
Lrystalpecisions, Shared  10,2.360,., Y2.0.5O0FêFf CN Program FilesCornnm., 
Lrystalpecisions, Web 10.2.2360... YA D.SOFAF Program Files Zorn. 
LrystalDecisions, Winda... 10U.2.36U,., YA.D.SUFAEFr CN Program Filson. 
rsrormprngd B,D.D.0 YA D.SOFET CA WINDOWYSTMicrosoF, 
LustomMarshalers 2.0.0.0 YA. D.SOFEFT CNWINDOWSTMicrasof. 
EnYDTE 8.D,0,0 1.0.3705  ZMPrograrm Files{Micros 
enwydte 8.0.0.0 1,0,3705  CHAProgram FilesCornn. 
EnYDTESD 8.0.0.0 w1,0.3705  ZHAProgram FilesMicros 
enwdtel 8,0.0.0 1.0.3705  ZHPrograr Filson. 
extensibility FD. DOD 1.0.3205  ZAMPrograrn FilesZarmrn, 


Ok | Lancel | 
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الفصل الثالث و العشرون 
صندوق الأدوات 


صندوق الأدوات تحتوي على قائمة من البنود التي يمكن إن نضيف إلى اأ شكال ديینا »> 
على سبيل المثال الأزرار. لفتح صندوق الأدوات انقر على ×100180 < س1ا . 


يمكننا الآن أن اسحب بندا على شكل أعمالنا. 


iE 
E] cade FF 
E]. Designer Shift+FF 


"Server Explorer rtrltalt+5s 
e Solution Explorer trl+Alt+L 


4 Object Browser Fa 


j Error List CtrltWw, ctrl+E 


Ff Properties Window F4 

E mows Forms ۹ î  Tonlboax tral 
kk Pointer ther Windows ٣ 
1 Background Warker Toolbars ۴ 


EL Bindinglawigatar 
ê BindingSourcë 
Button E 
LheckBox 

Eg CherckedListBox 

5] colorDialag 


Ll Full Screen Shift+Alt+Enter 


El 


| 
2 LamboBox | 
1 LontextMenuSkrip | 
DataridYiey 
DataSet | 
TE DateTimeFicker 
DirectoryEnkry' 
DirectaorySearchert | 
[î DomainlpDowr 
ErrarPtravideêr | 
3 EventLog 
FileSystemwatcher | 
3 FlowLayoutPanel 
gî] FoalderBrawserDialag | 
1=} FontDialog 2 

ٍ 


) ۷٤ ( 


ensert.net2000 @ gmail.com www.Ensertnet2000.all-forum.net 2 


لچ م مر ا مر م م م ا م می یی می ا م می م ا م م م م ا م می م می م م یی ف م ی کل ا ا ا مر م م ا می می می ا م می ی 


PDF ا‎ with pdfFactory trial version www.pdffactory.com 


r a a n n r ıa n mı n a mı mı n mı mn ıı mı mı n mı n a a mı n a n a n a n mt n mn a mı n a n 


الفصل الرابع والعشرون 
The Solution Explorer‏ 


rhe So1اution Explorer‏ قوائم جميع الملفات في مشروعنا »> ويوفر لنا طريقة سهلة 
للوصول إليqا.‏ iڏڌiخج View->Solution Explorer رãiiJly The Solution Explorer‏ . 


سترون في كل الطبقات »> الخ الإشكال المذكورة هنا. 


Wiew | Project Euild Gebug Gat: 
E] tade FF 
E] Designer Shift+EF 


Ta Server Explorer Ctrl+Alt+5 


Solution Explorer ا‎ solution Explorer Ztrl+All+L 


Eê ا‎ Eî El El e EA, Objert Browser Fz 
z2 YWindowsApplication1 و‎ 
| i 2 
0 Form .wb | gy Error List ZErl+wW, ZErlFE 
FY Properties Window F4 
gî  Tonlbo: LErlFAltH# 
Gkher Windams ۴ 
Taalbars ۴ 


| Full Screen Shift+Alt+Enter 


) ۷٥ ( 
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الفصل الخامس والعشرون 
خواص النافدذة 


خواطض تافدة تشمج لا ن يتغير بسهولة الممتلكات بالنسبة للأجسام في بيئثة تطوير 
متكاملة. تهيئة ويندوز المشروع » حق انقر على ۳”1٣ع٥ه۴‏ واختيار الممتلكات > 
وغفندنتذ سترى خحواض اللناقدة ». والدذي مسيجتوي علي كل ها هو متاح من الفتلكات ال 


انقر على إسقاط القائمة في أعلى نافذة خواص لاختيار صنف (أو التي يجب أن تكون في 
نطاق) الذي تريد إن تعدل لممتلكات. 


Form 54stem,. Windows, Farris, Forrr * 


E 


(Application Settil 
{GataBindings) 
Narme) Forml 


ûcrceptButton none) 
ûcressibleDeseri| 
ûccessiblelarne 
ûccessibleRols Default 


Allow Drap False 
ûutaScaleads Font 
AutaSrcrnll False 


AutaSerallMargin DO} Û | 

AutaScrallMinsize O} Û 
ûııko5ize False | 
ûutaSizeMode trowOnly | 
ûutoYalidate EnablePreventFor | 
Backtalar [| Control | 
BatkgroundImag [_ Î nang} 
BackgraundImag Tile | 
LancelButton. none} 
LausesYalidakior, True 


The text associated with the control, 


ا 0 ا ا 
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ي ي 
ي ي 
ي ۰ * 
! الحزء التالت 
ي ي 
ي ۰ ي 
: | لو اع | لاد و ات 1 
ي ي 
ة * * ۰ ت 
: الفصل السادس والعسشرون : 
ي 2 م ي 
ت ¥ * ت 
: الضوابط المسشتركه : 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
Button ¢‏ 
واحدة من انفع الضوابط الموجودة لدينا هي السيطرة على الزر > وهو واأاضح. 
ي ي 
ي ي 
الخصائص Properties‏ ع 
ي ي 
خ٭+76 : النص يظهر على الزر. 
1"2 : صورة التي تظهر على الزر. ي 
إBackco1o‏ : لون الأزرار الخلفية. ٍ 
F۴ rec‏ : لون الأزرار النص. 
ي ي 
® lالإحدIخڎ Events‏ 
ي ي 
ع1 : يحدث عندما ينقر مستخدم على الزر »> او استخدام لوحة المفاتيح لاضغط 
عل الزر.ء 
ٍ ى الزر 
صندوق ComboBox Juin‏ 
Combobox ّ‏ هو إسقاط قائمة من البنود التي بمكن للمستعمل أن يختار منه. 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ر ا ا 
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Properties الخصائص‎ 


etecustomsourceاAutocompPı‏ : ججموعة من الخيوط التي بمكن استخدامها لاستكمال 
اشا وات : 

Autocompletesource‏ : الصدر أن الرقابة سوف تستخدم لإتمام السيارات » على 
سبيل المثال "1٣11uهة"‏ سيمكن السيارات الكامل لبنود في ويندوز موقع التاريخ 
للمستخدم الجالي. 

tems‏ : قائمة من البنود التي «طصهع مربع يحتوي. 

Sted‏ : تحديد ما إذا كان البنود في قائمة سيتم تلقائيا مرتبة. 


Events ڎ|Iدحiل|l‎ 


Drop own‏ : يدث عندما إسقاط قطرات أسفل قائمة. 
ectedindexchangedا1اSe‏ : يدث عندما يختار المستخدم متلفة بند في القائمة. 


اıاabeا‏ العنوان 


السيطرة الأساسية جدا » ويستخدم لعرض النص على شكل من الإشكال. 


Properties الخصائص‎ 


ة ة 
ة 
ة ة 
ة 
ة 
ة ة 
ة 
ة 
ة ة 
ة ة 
ة 
ة ة 
ة 
ة ة 
ة ة 
ة 
ة ة 
ة 
ة ة 
ة ة 
ة ة 
ة ة 
ة ة 
ة 
ة ة 
rext‏ : النص الذي سيتم عرضها في العلامة. د 
ا Autosize‏ : كن أو يعطل التلقاني ريسيزينج » تبعا لحججم وإذا كان النص داخل 
السيطرة . 
: ignاrexta1‏ : ججموعات مواءمة النص في السيطرة. 
ة ة 
ة 
ة ة 
ة 
ة ة 
ة 
ة 
ة 
ة 
ة 
ة ة 
ة ة 
ة 
ة 
ة ة 
ة 
ة 
ة 
ة 
ة ة 
ة ة 
ة ة 
ة ة 
ة ة 
ة ة 
ء 


Linklabel 


ساسا نفس علامة السيطرة .» لكنه يعرض النص بنفس الطريقة التي نشا بمكن النقر 
على وصلة في صفحة ويب. 


Link lLabelî 


Properties الخصائص‎ 


»ه7 : النص الذي سيتم عرضها في العلامة. 

Autosize‏ : بمكن أو يعطل التلقائي ريسيزينج » تبعا لحججم وإذا كان النص داخل 
السيطرة . 

ignاrexta‏ : ججموعات مواءمة النص في السيطرة. 


Events İاIدحiلl‎ 


Linkclicked‏ : يحدث عندما ينقر مستخدم على الزر > أ استخدام لوحة المفاتيح 
لأضغط على الزر. 


0 ا ي‎ 0 
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Listbox 


مراقية 


Properties الخصائص‎ 

tems‏ : قائمة الأصناف المعروضة في السيطرة. 

eاآBordersty‏ : نوع من الجحدود إن تحصل على الانتباه للمراقبة. 

Events ڎاIدحlل|l‎ 

ectedindexchangedا1اeعS‏ : يدث عندما يختار المستخدم متلفة البند في السيطرة. 


Notifyicon 


ويضيف أيقونه إلى الإخطار المجال »> وهو مجال على يسار الساعة. 


K€  s:44PM 


Properties الخصائص‎ 

t»هrآ‏ : النص الذي سوف يتم عرضها عند المستخدم الماوس يحوم حول السيطرة. 
con‏ : الايقونه التي سيتم عرضها في الأشعار المجال. 

ماطذVis‏ : الجلود أو يظهر أيقونه في مجال الإخطار. 

ontextmenustrip : contextmenustrip‏ السيطرة التي سيتم عرضها عندما يقوم 
المستخدم بالنقر فوق الحق - أيقونه. 


Events ڎاIدحiل|l‎ 


lickإMousec‏ : ويحدث عندما يقوم المستخدم بالنقر فوق الايقونه. 
leclickاMousedoub‏ : يدث عندما ينقر المستخدم مزدوجة الايقونه. 


Picturebox 


مراقبة الجحاويات » الذي يعرض صوره. 


RR aa a A RR LSB RGD GORG GD GT DS GUD GG DD GDI GID GD DG DG DTG GG 


0 ر 
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Properties الخصائص‎ 


mage‏ : الصورة التي سيتم عرضها. 
1mage1ocation‏ : موقع الصورة التي سيتم عرضها » والتي يبمكن أن يكون موقع ويب 
S1zemode‏ : الطريق إلى صورة داخل ×جoط٥urغعتم‏ ستكون يحجم ثانية. 


Progressbar 


المستخدمة لعرض حالة عملية. 


LLLLLLLLLLLL 


Properties الخصائص‎ 


Minimum‏ : الد الأدن للقيمة. 

Maximum‏ : القيمة القصوى التي بمكن التوصل إليها. 

Va1ue‏ : القيمة الحجالية للإهطئsعمrودام‏ » التي يحب أن تكون بين الجد الأدنى والحد 
الأقصى. 

هماSty‏ : طريقة rإressbaعردعام‏ سيتم استخلاصها »> إذا هو خيمة المختارة ومن ثم سوف 
تظهر باستمرار خيمة عبور ٣إمطsئsعمrإردعم‏ .» الذي يستخدم عندما كنت لا تعرف كيف 
فملتة طولة ذاهت إل اساد 


ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
را( u‏ 
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الفصل السابع والعشرون 
حاويات 


Groupbox 
ضو ابط الجماعات الأخرى داخل علبة مع العلامة 4ه.‎ 


Group Bax] 


الخصائص Properties‏ 
t»×عآ:‏ النص يظهر في العلامة. 
Panel‏ 


أساسا نفس ×ەطصطساهعو » ولكن من دون تسمية. 


Tabcontrol 
وتعقد موةمططهةغ± الضوابط » والتي بمكن أن تحتوي كل ضوابطها الخاصة.‎ 


TabPagel | TabPage2 


) ۸۱ ( 


ensert.net2000 @ gmail.com www.Ensertnet2000.all-forum.net # 


سے م م ا می می می می ا می مر می می ا م م م ا م م م م ف ف لی ا ف کی 


PDF created with pdfFactory trial version www.pdffactory.com 


gr ma a n n r ıa n mı mm e mı n mı n n a a n mı mn a n mı n a n a mn ma a a n a mn a n r a n 


Properties الخصائص‎ 


esوrabpPa‏ : جموعة من eوaمطaةtغ‏ الضوابط » وكل منها يمكن أن يحتوي على غيرها من 
الضوابط. 

Multiline‏ : يدد ما إذا كانت خطوط متعددة من الأسعار يبمكن أن تظهر في اعلي 
الصفحة. 

.tabcontrolJl öةرظزilا‎ تاlريıيغت‎ : Appearance 


س راا 
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ي ي 
ي ي 
ي 
+ 
ة ام * ۰ ۰4 ۰ ۳ 
الفصل التامن والعسشسرون 
۰4 ء۶ “ ۶ ة 
: القوائم واشرطه الاآدوات ء 
ي ي 
ي ي 
ي ي 
ي ي 
Menustrip Î‏ 5 
ي ي 
ي 
شريط من قائمة البنود » التي هي شاء عه الاستعمال في معظم شكال . 
ي ي 
ي 
ي 
ي 
ي ي 
ي 
# lاخۈخصilأص Properties‏ 
ع ]rtems‏ : جچجموعة من to01stripmenu1te”"‏ الضوابط .» التي تمثل جذور قائمة البنود 
۽ التي ترد. ٤‏ 
ي 
$ lلiحدIڎ Events‏ 
ickedاrtemc‏ : ويحدث عندما يقوم المستخدم بالنقر فوق أي قائمة البند. 
ق ي 
Contextmenustrip f‏ ة 
ي ي 
ا تستخدم لإضافة السياق انقر بالزر الأبمن على قوائم المراقبة أو أشكال. أضفنا 
contextmenustrip‏ إل الحسم عن طريق تحديد دورته 1p٣غcontextmenus‏ المتلكات إلى ي 
Ãھ‏ قيãnة .contextmenustrip ÎiĞle‏ 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي 
ي 
èlخصlأص Properties‏ 
ي 
ي ي 
]tems ¢‏ : مجموعة من too1stripmenuite”"‏ الضوابط » التي تمثل جذور قائمة البنود 
التي ترد. : 
ي ي 
ي ي 
ي ي 
ي ي 
ي 
ي 
و 
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Events ڎIدحiلl‎ 


Opening‏ : قبل أن يتم فتح قائمة » أو عرضها. 
Opened‏ : يدث بعد قائمة فتح » أو عرضها. 
C1sin3g‏ : قبل أن يحدث هو قائمة مغلقة. 
dعهsداc‏ : يحدث بعد هي قائمة مغلقة. 


Statusstrip 


مركز الشريط »> الذي يظهر عادة في أ سفإ تطبيق ويندوز > والذي يمكن أن يحتوي على 
البنود المختلفة أداة الشريط. 


Status of the Application Crp 


Properties الخصائص‎ 


]tems‏ : :چموعة من "”ء٥too1strip1t‏ الضوابط » التي تمثل الضوابط التي تظهر على 
مركز الشريط. 


l|لiحدİI Events‏ 
ickedاrtemc‏ : ويحدث عندما يقوم المستخدم بالنقر فوق احد بنود داخل السيطرة. 
Tool1lstrip‏ 


ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت شريط |أدوات مثل مراقبة > والذي يمكن أن يحتوي على العديد من تلف 
t001str1pPitem‏ الضو ابط. 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
1 


: lêl  Camba Box > TextBox 


Properties الخصائص‎ 


]rtems‏ : جموعة من ”ء٥itم1pع01stدtخ‏ ضوابط » والضوابط التي تمثل الاداه التي تظهر 
على الشريط. 


Events ڎ|Iدحiلl‎ 


ickedاrtemc‏ : ويحدث عندما يقوم المستخدم بالنقر فوق احد بنود داخل السيطرة. 


) ۸٤ ( 
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ي ي 
ع ۰ ۰4 ۰ ا 
: الفصل التا سع و العسشسرون 
i ٤‏ 
: المكونات : 
ي ي 
ي ي 
ي ي 
ي ي 
Filesystemwatcher :‏ 
ي ي 
FilesystemWatcherl #‏ ات ٤‏ 
ي ي 
إن العناصر المكونة لنظام الساعات للملف الإحداث في المسار المجحدد. 
ي ي 
الخصائص Properties‏ 
و طخم : الدليل أو حملة لمشاهدة لملف الإحداث. ٌ 
Enableraisingevents‏ : يدد ما إذ| كانت £ilesystemwatcher‏ تنشط ام لا۔. 
اإ۴11te:‏ ملف لرصد نمط للتغيرات. 
د udesubdirectoriesاrnc1‏ : يقرر ما إذا كان ينبغي لرصد التغييرات في جميع أدلة ت 
تانونتة من اتسار اتد ۰ 
Notify fi1ter‏ : النوع من الملفات لرصد الأحداث. 
ي 1 ي 
3 lلiحدIثdû Events‏ ا 
ڪڪ ي 
ي ي 
edصوchan‏ : يحدث عندما الملف في المسار الممحدد معدلة. ٤‏ 
: dهCreat:‏ اللف يحدث عندما ينشاأً في المسار المحدد. : 
۽ etedاDe‏ : يحدث عندما الملف في المسار المحدد حذفها. ٍ 
ي Renamed‏ : يدث عندما الملف في المسار المحدد هو اسهمها. ٍ 
ي ي 
Timer ¢‏ 
ي 
ا الموقتات تستخدم لتشغيل مجموعة من البيانات المدونة على فترات محددة. ي 
ي ي 
E Timer1‏ ي 
ي ي 
ي ي 
lاlۈخZصilئفص Properties‏ 
ي ي 
Enabled‏ : يقرر ما إذا كان ينبغي رفع انقضى وقت الإحداث. ٍ 
امr7vعnt]‏ : مقدار الوقت الذي انقضى بين كل حال. 
ي ي 
Events ڎIدحإلاl f‏ ي 
ي ي 
Elapsed‏ : يحدث عندما الفترة الزمنية التي يحددها الفترة ينقضي. هذا هو أين نضع 
ق جهودنا المدونة التي نريد أن تدير بعد فترات. ا 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
E E PR E | E E EE‏ 
احا ٣‏ 
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ي ي 
5 ۰ 3 * 
الفصل التلاتون 
ي 6 ي 
ت فبا ت 
ّ صناديق الحوار 
ي 
ي ي 
ي ي 
ي ي 
Colordialog :‏ 
ويسفح للمستخدم لاختيار لون : يبواسطة الخوارء 
ي ي 
ColorDialog1 5‏ ]3# 5 
1 ي 
# الخصائص ٤ Properties‏ 
ي ي 
ي ٣10د‏ : لون أنه عندما يتم اختيار الجحوار هو مبين » وكذلك يختار اللون 
و المستخدم. 
ي ي 
Folderbrowserdialog‏ 
ي ي 
ويتيح للمستخدم تحديد مجلد » عن طريق الحوار. 
کڪ ي 
Eî FalderBraowserDialag1 :‏ : 
ي ي 
# الخصائص Properties‏ 
ي oT‏ 1 
۾ ectedpathاeعS‏ : الطريق إلى إن الجوار يبدا في عندما يتبين » وأيضا الطريق إن 
و المستخدم قد قام ختارة. 
ي ي 
Fontdialog £‏ 
ي 
ويتيح للمستخدم اختيار الخط » عن طريق الجوار. 
Al] FontDialog1  &‏ 
ي ي 
ه الخصائص Properties‏ س 
ي 
Fon‏ : اخلط وجوه أنه عندما يتم اختيار الجحوار هو مبين » وكذلك الخط وجوه أن 
۽ المستخدم قد قام مخحتارة. 
ي 2 
l|لliحدûI Events‏ ع 
ا راعط4: ويحدث عندما يقوم المستخدم بالنقر فوق تنطبق » إلى "امعط" المختارة 
۾ الخط. 2 
ي 
ي 
ي ي 
ي ي 
ي 
ي 
س س ا 
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Openfiledialog 


ويتيح للمستخدم اختيار ملف »> أو ملفات متعددة » لفتح ؛ عن طريق الجوار. 
Ea OpenFileDialag1‏ 


Properties الخصائص‎ 


:۴1eName‏ ملف عندما يتم اختيار الحوار هو مبين » وأيضا الملف إن المستخدم قد 
قام ختارة. 

:۴1eNames‏ ملف مجموعة من الأساء أن المستخدم قد قام مختارة (إذا كان المستخدم 
قد قام نحخبة من ملفات متعددة) 

۴1ter‏ : المرشح لنوع الملفات التي بمكن عرضها في الجحوار. 

Multiselect‏ : تحدد ما إذا كان بامكان المستخدم اختيار عدة ملفات. 

"t1٥‏ : العنوان هو إن يظهر في أعلى مربع الجوار. 


Savefiledialog 


ويسمح للمستخدم لاختيار مكان لحفظ الملف » بواسطة الحوار. 
SaveFileDialog1‏ [ 


Properties الخصائص‎ 


و و 
و و 
و و 
و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و 
و و 
و و 
و و 
و و 
و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
:۴11eName :‏ ملف عندما يتم اختيار الحوار هو مبين »> و أيضا الملف إن المستخدم قد 
ده ٣إع۴11t‏ : المرشح لنوع الملفات التي يستطيع المستخدم باستثناء ما ورد. ا 
r"i1t1e‏ : العنوان هو إن يظهر في أ قلي مربع الجحوار. 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 
و و 


E E 
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الجزء الرابع 
مکiدlıات‏ فصJÖûl (FCL) framework‏ 


۰ 


الفصل الحادي والثلاثون 


system. drawing 


ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
ت 
صورة ال طبقة هي مفيدة جدا | طبقة < و الذي أنكم لی الأرجح استخد ام عند نقطة 
ما. وهو يتضمن اساليب لتحميل الصور » تحويل الصور وحفظ الصور » من بين امور 2 
ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 

ت 


اخری. 


بمكننا بسهولة تحميل صورة من اسم الملف. 


Dim image As Image 
image = image.FromFile ("C: \imageFile. bmp") 


والآن أصبحت لدينا صورة وجوه » والذي بمكننا إنقاذ لملف آخر. 


image. Save ("C: \newImageFile. bmp") 


ويمكننا ايضا تحويل شكل الصورة إلى وعمطJ‏ » على سبيل المثال. 


Dim Format As Imaging. ImageFormat = Imaging. ImageFormat . Jpeg 


image . Save ("C: \newImageFile. bmp", Format) 


5 أ ردنا تحرير الصورة » ونحن سوف يستخدم رسامات وجوه » التي سنقوم ختامية 
حول صورة الجسم وثم استخدام الاعتماد على ذلك. 


ا ا ا را 0 ي 0 س 
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Dim graphics As Graphics = graphics. FromImage (image) 


عمكخنا الان إن تعمل يبشكل سباش الرسامات وجوه » وسوف تعكس إ|إي تعديلات 
ء : ٣ر‏ 9 3 لس ۽ ي 2 
الصورة مباشرة. 


بعض الرسامات وجوه بمكننا الاستفادة من أساليب لاستخلاص : 


ي 

ي 

ي 

ي 

ي 

ي 

ي 

drawarc‏ .csزhمpمaاG‏ : تلفت وهو قوس تمثل جزء من وجود البيضاوي يحددها مستطيل 
ع الهيكل. 
drawbezier ¢‏ .hicsمapاي‏ : يستخلص اإ٥62Ziط‏ المفتاح التي حددها أربعة هياكل نقطة. 
drawbeziers £‏ .icsزhمaعيG‏ : تلفت سلسلة من ٣إع٥6z1ط‏ المفاتيح من مجموعة من الهياكل 
نقطة. 

ع o0sedcurveاdrawcl‏ .csعhiمaعي‏ : تلفت مغلق الكاردينال المفتاح حددتها مجموعة من 
ا الهياكل نقطة. 

drawcurve‏ . hicsمapاي‏ : يستخلص الكاردينال المفتاح جمحدد من خلال مجموعة من الهياكل 
# نقطة. 

drawel1lipse #‏ .icsزhطمpمaاي‏ : يلفت احد البيضاوي يحددها لتنطط هيكل مستطيل. 
ics.drawiconزhطمpمaاG‏ : تلفت الصورة التي بمثلها الرمز المحدد وجوه داخل منطقة 
و يحددها مستطيل الهيكل. 

drawiconunstretched‏ .hicsمpمaاG‏ : تلفت الصورة التي يبمثلها الرمز الممحدد وجوه دون 
ا التوسع في الصورة. 

drawimage‏ .hicsمapعي‏ : تلفت صورة الجسم. 

a‏ edاdrawimageunsca‏ .csعhiمapاي‏ : تلفت صورة الجسم دون التوسع. 
Graphics. drawline‏ : رسم الخط. 

inesاdraw‏ .hicsمapايG‏ : رسم سلسلة من الخطوط. 

.مwX|‎ graphicspath صlخiwı‎ : Graphics. drawpath a 
رسم شكل الفطيرة.‎ : Gاعaمhics‎ . drawpPie 
تلفت مضلع.‎ : Graphics. drawpoاlygon‎ 

Graphics. drawrectangle ¢‏ : رسم مستطیل. 
esاdrawrectang‏ .hicsمpمaعاي‏ : تلفت سلسلة من المستطيلات. 

drawstring‏ .hicsمpمaايG‏ : يستخلص النص الخيط. 

م Graphics. fi11c10sedcurve‏ : لأ داخلية مغلقة الكاردينال المفتاح المنحتي. 
۽ Graphics. fi11lellipse‏ : ۴لا الداخلية من البيضاوي. 

. الجسم‎ graphicspath ÎJ aيlۓZخادıنا‎ ÎÊê : Graphics. fillpath 

م fi11pPie‏ .hicsمapاG‏ : قلأ الداخلية من الفطيرة الباب. 

Graphics. f£i11pPo1ygon ‡‏ : قلأ الداخلية للمضلع. 

م leارi11rectang£‏ .hicsمapاG‏ : لاأ الداخلية للمستطيل. 

Graphics. fi11rectangles £‏ : لاأ الداخلية من سلسلة من المستطيلات. 

‡ ics.fi11regionزhiمaاG‏ : لاأ المنطقة الداخلية من الجسم. 

ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 


ا ا 
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ي ي 
5 ۰ * ۰ هھ ھ ۴ 5 
الفصل التانى والتلاتون 
ي ي 
system. 10 :‏ 
ي ي 
ي ي 
ي ي 
ي ي 
ي ي 
ٍ ا : 
ته قراءة وكتابةه النص ملفات ت 
سسس ي 
و . 1 1 ي 
۾ إذا اردنا إن المطلوب من أي وقت مضى إلى القراءة أو الكتابة ملفقات النص »> ٤‏ 
ق وسنقوم بكل تأكيد lسiiwد‏ |ۂم .streamwriter, streamreader‏ ع 
و 4 ِء 
۽ دعنا من قراءة الملف ثم نكتب البيانات التي تليت أمام ملف جديد. 
ي ي 
م إنشاء لجحنة جديدةö‏ treamreaderك‏ وجوه. م 
ي ي 
Dim streamReader As New IO.StreamReader ("C:\file.txt")‏ : 
خلق متغير لتحميل البيانات. 
ي ي 
ي ي 
م Dim text As String‏ م 
ي ي 
و قراءة البيانات. 
ي ي 
text = streamReader. ReadToEnd ()‏ 
ي ي 
إ غلاق هذا الملف م 
ي ي 
Š | streamReader . Close ()‏ 
ي ي 
إيجاد treamwriterء‏ لكتابة البيانات. 
ي ي 
Dim streamWriter As New IO.StreamWriter ("C: \newFile.txt")‏ : 
. 1 
أكتب البيانات إلى الملف. ت 
ي ي 
Š  streamWriter. Write (text)‏ 
ي ي 
: 
إغلاق ٣إeamwriteعtء‏ الأمر الذي يفرض على جميع البيانات الذي لم يدخل بعد 8 
المكتوبة إن dع٥طى£۴1u‏ إل الملف. م 
ي ي 
Š  streamWriter. Close ()‏ 
ي ي 
ي ي 
ي ي 
ي ي 
ا س ا ا 
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الجزء الخامس 
الشفرات 


الفصل الثالث وا لثلاتثون 
مرحبا العال! 


إانشاء مشروع جديد 


أولا وقبل كل شيء » وتفتح 2005 عذئaة8‏ a1سعةا.‏ نحن نذهب إلى خلق جديد ويندوز حت 
Hello " gi û «. "Windows Application" jšl «File->-New Project jail‏ 
!Wor1d‏ ”!" بوصفها اسم والصحافة چ©. 


أنت الآن قدمت مع ويندوز ا شكال مصمم . 


نوافذ أشكال مصمم 


نوافذ أشكال مصمم أساسا وسيلة لتحرير النظرة من أشكال إعمالنا » نما عل 
الحياة أسهل بكثير بالنسية لنا. 


يمكننا أن اسحب البنود على شكل » مثل الأزرار والقوائم » وباستخدام مجموعة 
ممتلكاتهم خواص النافذة. أشكال مصمم يولد. الصافية lا—دونخة Visual Basic)‏ 
المدونة في هذه القضية (هل فعلا أن إنشاء شكل وعلى كل واحد من وجوه أنها 
بالنسبة لنا. الجمال من هذا هو انه عندما خلق شكل وإضافة بضع تعترض عليه » 
وهناك مئثات من الخطوط المدونة انه لي يعد لدينا لنوع! 


مضيفا لدينا شكل الأجسام 


دعونا نضيف بعض الأشياء لدينا الآن شكل. فتح صندوق العدة به انقر على عرض /⁄ 
صندوق العدة أو تحوم فوق القليل مربع على اليسار إن يقول صندوق العدة. 


وهناك فثات كثبرة من الأجسام بمكننا الآن أن نضيف لدينا أشكال. 


ولندع إضافة زر التحكم وجهطخئة1 السيطرة. انقر الضوابط المشتركة » وأسحب زر 
واحد ×0ظطغ11s‏ الجسم على شكل أعمالنا. اسحب منهم حوالي حت أنت مريحة مع 
مواقعها. 


لديك ريما لاحظ أن الزر يقول "1”هغخسuط"”.‏ أن تفتح نافذة على الممتلكات الحق 
مثلما فعلتم مع صندوق العدة (أو الصحافة ۴4) و من ثم تظهر القائمة المنسدله في 
أعلى اختر 1«صهغخغخسط. الآن بمكنك أن تحدد الممتلكات ل1«هغغخناط. حدد النص على أنها 
"My Button"‏ أو أيا كانت تريد. أيضا اختيار ۳1٣ه۴‏ من قائمة التغيير ونصه إلى 
"!Hello World"‏ . 


) ٩1 ( 


ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
ي 
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مضيفا مدونة لدينا الأجسام 


طيب » ونحن الآن مستعدون ليضفي مسحة من مدونة لطلبنا. ما سنفعله هو أن تضيف 
دخول إلى حجهطغی11 في كل مرة ينقر المستخدم على الزر. سنكون باستخدام 
ickاutton.cط‏ الحدث ليخبرنا انه ينبغي أن نضيف دخول. الحق انقر في اي مكان في 
أشكال المصمم وانقر على عرض المدونة. ونحن الآن في تقديمها مع 


Public Class Forml 


End Class 


هذا » كما يمكنك أن تعرف جيدا » هي الطبقة إعلان ل۳"1٣إه۴.‏ 


أضف حدثا لععذا1ء.«uttoط‏ خلال فتح إسقاط قائمة على أعلى اليسار للمدونة المجال 
واختيار ٣1‏ 0٥غخغuط‏ . ثم فتح إسقاط قائمة على الحق واختيار انقر. 


وحن ألان نظرا للمدونة انقر الحدث. 


Private Sub Button1l Click (ByVal sender As Object, ByVal e As 
System. EventArgs) Handles Buttonl1l.Click 


End Sub 


إشعار بأن تتولى هي الإشارة إلى عذ1اutton1.cط‏ الجدث. 


ي ي 
ي ي 
ي ي 
ي 
ي ي 
ي ي 
ي 
ي ي 
ي 
ي 
ي ي 
ي ي 
ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي 
ي ي 
ي ي 
ي 
ي ي 
ي 
ي ي 
ي ي 
ي 
ي 
ي ي 
ي سنقوم الآن أن أضيف بعض المدونة بحيث أننا في كل مرة انقر على زر دخول جديدة ت 
تحصل إضافته إلى قائمة المربع في شكل "٣إNumbe :Entry‏ #" .» حيث # وعدد من دخول 
المضافة. ت 
لذلك نحن نذهب إلى إضافة متغير الخاص <« وgدeۓl .formlJ jùڵleإ| û entrynumber‏ 
ي 
ي 
ي ي 
ي ي 
ي 
ي 
ي 
ي ي 
ي 
ي 
ي 
ي ي 
ي ي 
ي ي 
ي ي 
ي 
ي ي 
ي ي 
ي 
ي 
ي ي 
ي 
ي ي 
ي ي 


Private EntryNumber As Integer = 0 


أحب أن أضيف إلى بلادي قبل كل شيء متغيرات الحدث وطريقة الإعلانات »> ولكن يمكنك أن 
تضيف هذا أينما تشاء (يمكن قبل الجحدث أو بعده الإعلان » ولكن يحب أن تكون داخل 
forml1‏ !لlelڵi(‏ . 


كل مرة ينقر مستخدم > وحن سوف الزيادة ٣إع٧مطصuمرyرعإtغen‏ جانب واحد » خلق النص 
شريطا لتخزين نص بأننا سوف تضيف إلى قائمة مربع » يضاف إليها النص وإرفاق 
entrynumber‏ إليها هاتفيا وnص1٣إغخsدt‏ الطريقة التي المتحولون إلى |١‏ الخيط »> وبعد 
ذلك يضيف النص إلى قائمة المربع. 

حن المدونة داخل الجدث إعلان لععذاء.”هtغtخuط‏ ينبغي أن ننظر مثل هذا الشيء 


'Increment EntryNumber. 
Me. EntryNumber += 1 


'Store a text string for the entry we will add. 
Dim textEntry As String = "Entry Number : " & Me.EntryNumber. ToString 


'Add it to the listbox. 
Me.ListBoxl. Items. Add (textEntry) 


ا ا ا ت 
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اختبدار طلىنا 


إدارة المشروع عن طريق النقر و٣1ووuطع Start D2‏ > ebugط(و‏ الاختبار بها بالنقر على 
االر ر .حضع مر اة 


ء 
1 


وينبغي لنا أ و لا تطبيق هذا أشيه 


EÊ Hello Warld! 


| Entry Number : 
| Entry Number : 
| Entry Number : 
| Ertrr Number : 
| Entry Number : 
| Entry Number : 
| Entry Number : 
| Entry Number : 


| 0 Number : 9 | 


س ٹم تی ظل ہے بت ل تحت صا 


Public Class Form1 
Private EntryNumber As Integer 


Private Sub Buttonl1l Click (ByVal sender As Object, ByVal e As 
System. EventArgs) Handles Button1l.Click 
"Increment EntryNumber. 
Me.EntryNumber += 1 


"Store a text string for the entry we will add. 
Dim textEntry As String = "Entry Number : " & 
Me. EntryNumber. ToString 


'Add it to the listbox. 
Me.ListBox1l. Items. Add (textEntry) 
End Sub 


End Class 


0 ا س ا ي‎ 
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الفصل الرابع الثلاثون 
إiشlء Magic 8 Ball‏ 


ما هو سحرى ۸١‏ الكرة؟ 


سحري ۸ الكرة لأول مرة اخترعت في ١٦'1ى‏ نعتقد. ومن ساسا إضافيا حوض كبيبر الكرة 
> مع ثقب في أعلى التي تظهر إجابات مختلفة في كل مرة تقوم فيها هزة. 


ر سحری ۸ |۱ ة 
دعونا تفكر في بعض الاحتياجات لمشروعنا. 


.١‏ وسوف يكون الشكل الأساسي » مع زر أن عروض جديدة في كل مرة أنها نتيجة 

۲ = سيكون لدينا مانية الكرة في هذا المركز » الذي هو الانتباه على 
×ictureboم‏ السيطرة. عندما شكل الاحتمال أي نتيجة سيتم عرضها » وسوف يكون 
مجرد فراع 1 

۳. سنقوم زين اكثر من جمع الخيوط للمختلف النتائج الممكنة وتنتقي منها بشكل 
فهو اتي يق كل مرة هي التق على الرر. سيكون لدينا تانج والعشرين » وكاتها 
طبيعية سحريه ۸ الكرة. 


وحن أول من سوف تضاف ٭جەطع٥إuخ٤عذط‏ السيطرة. اسحب واحد ونحن على شكل وحجم 
المجموعة (في نافذة الخصائص( إلى Format™~) lyãiî picturebox طwgll dq .۲٠٠٠۲٠١‏ 
1n ۴orm> Horizontally‏ rإcente)‏ . تغيير شكل قليلا لتتناسب مع انه في ذلك الحين 
وإضافة زر المربع أدناه الصورة. مجموعة الزر النص إل ""0ذغخQues "Ask a‏ » لأنها 
تناسب تغيير في النص إذا اقتضى الأمر » وأنها مركز أفقيا. مجموعة أشكال النص إلى 
"Magic 8 Ball"‏ وorاckco1عaط‏ إل الأبيض » وبمكننا أن ننتقل إلى الترميز. 


مضيفا مدونة لدينا الأجسام 
أولا وقبل كل شيء » ولدينا إعداد الردود العشواءيه. نحن نذهب إلى متجر لها في 


ectionاstringcoı1]1‏ . وهي مجموعة خاصة من نوع أن سلسلة جعمازن القيم. تضاف عليه 
د اخل ۴٥7۳1‏ للاإعلان الطبقة. 


Private RandomResponses As Collections. Specialized. StringCollection 


ولجعل إجراءات لتسكين هذه المجموعة مع استجابة عشاءيه الخيوط »> 
.initrandomresponses‏ 


Sub InitRandomResponses () 


End Sub 
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يضاف قا لي المدونة داخل هذا الفرعية. 


. RandomResponses = New Collections. Specialized. StringCollection 
. RandomResponses.Add ("Signs point to yes.") 

. RandomResponses. Add ("Yes. ") 

. RandomResponses.Add ("Reply hazy, try again. ") 

. RandomResponses.Add ("Without a doubt. ") 
.RandomResponses. Add ("My sources say no. ") 

. RandomResponses.Add ("As I1 see it, yes.") 

. RandomResponses.Add ("You may rely on it.") 

. RandomResponses.Add ("Concentrate and ask again. ") 
. RandomResponses. Add ("Outlook not so good. ") 

. RandomResponses.Add ("It is decidedly so.") 

. RandomResponses.Add ("Better not tell you now. ") 
. RandomResponses. Add ("Very doubtful. ") 

. RandomResponses.Add ("Yes - definitely. ") 

. RandomResponses.Add ("It is certain. ") 

. RandomResponses. Add ("Cannot predict now. ") 

. RandomResponses. Add ("Most likely. ") 

. RandomResponses.Add ("Ask again later. ") 

. RandomResponses. Add ("My reply is no. ") 

. RandomResponses. Add ("Outlook good. ") 

. RandomResponses.Add ("Don't count on it. ") 


و 
و 
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و 
و 
و 
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و 
و 
و 
و 
و 
و 
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و 
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و 
و 
و 
و 
و 
و 
و 
و 
الآن نحن يحاجة إلى إيجاد وظيفة من ان العائثئدين عشاءيه استجابة من هذه امجموعة. 
سنطلق عليه getrandomresp0"s٥‏ .» و انه سيعود سلسلة القيمة تتضمن استجابة 
و 

و 

و 
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و 
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عشاءيه. 


Function GetRandomResponse() As String 


End Function 


يضاف ما يلي المدونة داخل هذه الوظيفة. 


'Create a new Random object. 
Dim random As New Random 


'Get the highest response index possible. 
Dim highestResponse As Integer = Me.RandomResponses. Count 


"Use Random. Next to get a random value between 0 and highestResponse. 
Dim responselndex As Integer = random. Next (0, highestResponse) 


"Return the random response, using the index we just got. 
Return Me. RandomResponses (responselIlndex) 


) ٩ ( 
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وحن الآن ستضيف الأجراء أن تلفت صورة سوداء مع الكرة والنص »> على أن يوضع في 
منطقتنا صورة المربع. سنطلق عليه e٠م1”a39ە٥غخaمdكمup‏ .» وهذا سيكون له رد بارامتر من 
النوع الخيط الذي سوف تستخدم لتمرير عشاءيه ردا على ذلك انه ينبغي أن 

ليك 


Sub UpdatelImage (Response As String) 


End Sub 


يضاف ما يلي المدونة داخل هذا الفرعية. 


'Create a new image object 
Dim magic8Ball As New Bitmap (250, 250) 


'Create a graphics object to draw on the image. 
Dim graphicsObject As Graphics = Graphics.FromImage (magic8Ball) 


'Set the SmoothingMode, for smoother antialiased drawing. 
graphicsOb ject. SmoothingMode = Drawing2D. SmoothingMode. AntiAlias 


"Create a rectangle, which will be used to draw the ellipse. 
Dim circleRectangle As New Rectangle(0, 0, 250, 250) 


ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

: ة 
ş | 'Draw the ellipse.‏ 
graphicsObject.FillEllipse (Brushes. Black, circleRectangle)‏ | § 
ş | 'Create a rectangle to draw the text string in.‏ 
ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 

ة 
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Dim textRectangle As New Rectangle (0, 0, 250, 250) 


"Create a StringFormat object to setup the text alignment to center. 
Dim stringFormat As New StringFormat 

stringFormat .Alignment = StringAlignment .Center 

stringFormat .LineAlignment = StringAlignment . Center 


"Create a font to draw the response with. 
Dim font As New Font ("Comic Sans MS", 10, FontStyle. Bold) 


"Draw the response string. 


graphicsOb ject. DrawString (Response, font, Brushes.White, textRectangle, 
stringFormat ) 


"Cleanup the graphics object, to save memory. 
graphicsOb ject. Dispose () 


'Set PictureBox1l. Image to the image we created. 
Me. PictureBox1l. Image = magic8Ball 


) ٩1 ( 
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وحن الآن بحاجة إلى إضافة بعض المدونة لكهه۳1.1٣۶ه۴‏ الجدث حتى يمكننا أن ندعو 
nitrandomresponsesة‏ واستخلاص بياض ۸ الكرة. انقر على إسقاط القائمة في أعلى 
اليسار » واختر ۳1٣ه۴‏ الإحداث > ثم اختر تحميل من قائمة على أعلى يمين الصفحة. 
يضاف ما يلي المدونة داخل هذا الحدث. 


"Initialize random responses. 
Me. InitRandomResponses () 


"Update the image, with no text. 
Me. UpdateImage (Nothing) 


وأخيرا » أننا بحاجة إلى إضافة المدونة لkع1ذ1اutton1.cط‏ الجحدث أن ما سيحصل عليه 
عشو اثئيا واستجابة الدعوة e٠م1"a9ع٥عtغخaمQdصup‏ مع استجابة عشاءيه. الوصول 
ickاutton1.cط‏ الحدث مثلك فعلت مع ۳1.1082d٣إه£‏ الجدث أعلاه » ثم تضيف الشفرة 
اة 
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ي 
'Get a random response and update the image.‏ 

: Me. UpdateImage (Me. GetRandomResponse) 

ي 

اختبار طلبنا 
وأخيرا يمكننا اختبار لنا ماجيك ۸ الكرة. سؤال أطرحه » ثم تضغط على زر 
وستحصلون على رد في تنص أبيض في خط الوسط. عندما يركض » وينبغي أن ينظر مثل و 
هذا التشيء : 
ي 
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El Magic 8 Ball EG 


It is certain. 


! Aek a Question 


س 0 ا 
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الفهرس 


مقدمة فيجوال بيسك دوت نت ۲٠٠٠١‏ 


ٍ ٍ 
ٍ ٍ 
7 ٍ 
ٍ ٍ 
ٍ ٍ 
ٍ ٍ 
ٍ ٍ 
ٍ ٍ 
ٍ ٍ 
ٍ ٍ 
ٍ ٍ 
ٍ ٍ 
ٍ ٍ 
۽ الفصل الأول المتغيرات 
الفصل الثاني أنواع البيانات المشتركة ٍ 
و الفصل الثالث المعاملات 
الفصل الرابع وصول معدلات 
؟ الفصل الخامس مدونة تعليقات 
۽ الفصل السادس السيطرة على تدفق 
الفصل السابع الأساليب 
و الفصل الثامن الطبقات : 
ڈٌ الفصل التاسعخع lاۈخصlائفأص Properties‏ 
الفصل العاشر المصفوفات ٍ 
م الفصل الحادي عشر الأحداث 
١‏ الفصل الثاني عشر الاستثناءات 
الفصل الثالث عشر اشكlاJل‏ و,يiدFormsjg Windows‏ 
۽ الفصل الرابع عشرغء٥‏ زط system.‏ 
؟ الفصل الخامس عشر مجموعات 
الفصل السادس عشر ءcsءذ٣إم”معمو‏ مجموعات عامة 
الفصل السابع عشر المندوبون 
الفصل التامن عشر المراجع ٤‏ 
ٍ ٍ 
ٍ ٍ 
ٍ ٍ 
ٍ ٍ 
ّ 
ٍ ٍ 
ٍ ٍ 
ٍ ٍ 
ّ 
ٍ ٍ 
2 ٍ 
ٍ ٍ 
ٍ ٍ 
ٍ 7 
ّ 
ٍ ٍ 
ٍ ٍ 


الحرء الثاني 
بيئة تطوير متكاملة 


الفصل التاسع عشر إنشاء مشروع جديد 

الفصل العشرين المشروع الممتلكات 

الفصل الحادي والعشرون إضافة بنود جديدة 

الفصل الثاني والعشرون إضافة الإشارات 

الفصل الثالث والعشرون صندوق الأدوات 

The Solution Explorerjùgرشرellو‎ gبlرلنلJا الفصل‎ 

الفصل الخامس والعشرون خواص النافذة 
ل ا ت 
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بواسطة اندرو فوس ترجمة : محمد على يوسف‎ ۲٠٠٠ مقدمة في الفيجوال بيسك دوت نت‎ 
الحجزء الثالث‎ 
انو اع الأدو ات‎ 


الفصل السادس والعشرون الضوابط المشتركة 

الفصل السابع والعشرون حاويیات 

الفصل الثامن والعشرون القوائم واشرطه الأدوات 
الفصل التاسع والعشرون المكونات 

الفصل الثلاثون صناديق الحوار 


الجزء الرابع 
مکتl۹ıات‏ فصJûil (FCL) framework‏ 


الفصل الحادي والثلاثونdrawingj system.‏ 
الفصل الثاني والثلاثون 0٥1.”٥ع٤ئرك‏ 


الشفرات 


الفصل الثالث والثلاثون مرحبا العال! 
الفصل الرابع الثلاثون إنشاء 8211 8 Magic‏ 


المحتويات 


) ٩٩ ( 
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